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]; 在表格中插入其他可视控件 在数据库编程中,外键约束是保证数据库 |