Delphi中 OnDrawCell的使用技巧

Delphi中 OnDrawCell的使用技巧

东南大学 梁云

---

人们在利用Delphi开发数据库应用程序时，经常使用表格控件制作报表。灵活地使用表格控件的OnDrawCell事件，可以完成一些特殊效果的显示，能更好地满足用户需求。本文介绍灵活使用OnDrawCell事件的三个技巧。 动态更新表格行的颜色 有时需要在报表中动态更新表格行的颜色。例如，在供应商列表中，优先供货的供应商用绿色显示，其他的供应商用红色显示。此时可以在OnDrawCell事件中用如下代码实现： if Table1.FieldByName(‘CustNo’).AsInteger > 1500 then DBGrid1.Canvas.Font.Color := clRed; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State) 上述的代码可以根据应用的需要进行扩充。例如需要用黑体显示时，只要将对应行改为： DBGrid1.Canvas.Font.Style := [fsBold]; 在表格中插入其他可视控件 在数据库编程中，外键约束是保证数据库