Delphi中OnDrawCell的使用技巧[1]
人们在利用Delphi开发数据库应用程序时 经常使用表格控件制作报表 灵活地使用表格控件的OnDrawCell事件 可以完成一些特殊效果的显示 能更好地满足用户需求 本文介绍灵活使用OnDrawCell事件的三个技巧
动态更新表格行的颜色
有时需要在报表中动态更新表格行的颜色 例如 在供应商列表中 优先供货的供应商用绿色显示 其他的供应商用红色显示 此时可以在OnDrawCell事件中用如下代码实现
if Table FieldByName( CustNo ) AsInteger > then
DBGrid Canvas Font Color := clRed;
DBGrid DefaultDrawColumnCell(Rect DataCol
Column State)
上述的代码可以根据应用的需要进行扩充 例如需要用黑体显示时 只要将对应行改为
DBGrid Canvas Font Style := [fsBold];在表格中插入其他可视控件
在数据库编程中 外键约束是保证数据库中的数据按用户要求存放的有效方法 例如 在一个订单处理环境中 订单表和客户表之间就存在外键约束 即订单表中的每条记录在客户表中应该有对应项 这样 在填写订单表时 如果在输入焦点提供客户列表供用户选择 将有效地保证数据的正确性
DBGrid控件和StringGrid控件都派生于TcustomGrid 其中DBGrid控件可以输入数据 Delphi对DBGrid处理的内部机制是在网格上浮动一个DBEdit控件 能够获得焦点 输入数据的网格其实是浮动的DBEdit控件 当焦点转移时把编辑框中的文字显示到表格 其他未获得焦点地方和StingGrid并没有区别 这样就达到了在表格上输入数据的目的 所以 在表格中插入其他可视控件的方法就是在网格上浮动该可视控件 因此从原理上讲 任何控件都可以在表格中插入 本文以在表格中插入下拉框为例 介绍在网格上插入其他控件的具体步骤
．设置属性
读入客户列表到下拉框的Items属性
．设置OnDrawCell事件
OnDrawCell事件在绘制表格的单元格时被触发 当获得焦点的单元格所对应的字段与下拉框所对应的字段一致时 移动下拉框到获得焦点的网格上 并且使下拉框可见 从而达到在表格指定列上显示下拉框的功能 设置表格的OnDrawCell事件如下
if (gdFocused in State) then
begin
//对应字段一致则执行
if (Grid Cells[ACol ]= Company ) then
begin
//移动下拉框到指定位置
ComboBox Left := Rect Left ＋ Grid Left;
ComboBox Top := Rect Top ＋ Grid top;
ComboBox Width :=Rect Right－Rect Left;
ComboBox Height:=Rect Bottom－Rect Top;
// 使下拉框可见并获得焦点
ComboBox Visible := True;
ComboBox SetFocus;
end;
end;
lishixinzhi/Article/program/Delphi/201311/24771
