26 June 2012

ก้าวแรกกับ 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 ครับ

No comments: