首页 相关文章 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]; ...[ 查看全文 ]

2016-02-19 标签:

Delphi中OnDrawCell的使用技巧的相关文章

手机页面
收藏网站 回到头部