จะเปลี่ยนสีของ dataGrid ใน Delphi ได้อย่างไร? เช่นเดียวกับการควบคุมชื่อเดียวกันใน. NET
------------------------------------------------------ ----------------------
ดูเหมือนว่าจะเขียนโค้ดในเหตุการณ์ OnDrawDatacell
------------------------------------------------------ ----------------------
ขั้นตอน tform1.dbgriddrawcolumncell (ผู้ส่ง: tobject;
const rect: Trect;
รัฐ: TGridDrawState);
เริ่ม
ถ้า dbgrid2.datasource.dataset.recno mod 2 = 1 แล้ว
เริ่ม
dbgrid2.canvas.font.color: = clblue;
dbgrid2.canvas.brush.color: = clyellow;
จบ
เริ่มต้นอื่น
dbgrid2.canvas.font.color: = clred;
dbgrid2.canvas.brush.color: = clgradientactivecaption;
จบ;
dbgrid2.defaultdrawcolumncell (rect, datacol, คอลัมน์, สถานะ);
จบ;