วิธีใช้ DrawGrid ใน Delphi

John

DrawGrid ใน Delphi นั้นจะไม่สามารถเข้าถึง Cell แต่ละ Cell ได้โดยตรง แต่จะใช้ Event OnDrawCell เป็นช่องทางในการใส่ข้อความหรือรูปภาพต่าง ๆ ลงในแต่ละ cell

ตัวอย่าง

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ACol = 1) and (ARow = 2) then
     DrawGrid1.Canvas.TextOut(Rect.Top + 2, Rect.Left + 2, 'TEXT');
end;

 

บันทึกนี้เขียนที่ GotoKnow โดย  ใน บันทึกการเขียนโปรแกรม

คำสำคัญ (Tags)#delphi#tdrawgrid

หมายเลขบันทึก: 26964, เขียน: 05 May 2006 @ 00:51 (), แก้ไข: 20 Jun 2012 @ 19:26 (), สัญญาอนุญาต: สงวนสิทธิ์ทุกประการ, อ่าน: คลิก


ความเห็น (0)