ก้าวแรกกับ Delphi ตอน การเช็ค Column Index ใน DBGrid ของ Devexpress

    ก้าวแรกกับ Delphi ในตอนนี้จะเป็นการกล่าวถึงการทำงานกับ DBGrid ของ Devexpress ครับ

สำหรับตัวอย่างนี้จะเป็นการตรวจสอบว่า cell ที่เรากำลัง Click อยู่นั้นอยู่ใน Column ที่เราต้องการใช่หรือไม่ ในกรณีนี้ผมต้องการเช็คว่าเป็น column index ที่ 0 ใช่หรือไม่ หากใช่จะทำการ show messagebox ครับ

[Delphi]
var
  AColumn: TcxGridDBColumn;
begin
  AColumn := ACellViewInfo.Item as TcxGridDBColumn;

    if AColumn.Index = 0 then
            showmessage('Hello World');

จุดที่เดายากก็น่าจะเป็นการสร้างตัวแปล AColumn มารับค่า Column Index นั่นเองครับ เมื่อรู้อย่างนี้แล้วก็ลุยต่อเลยครับ..

ขอบคุณ web Devexpress ครับ