如何调用DBGridEh1DrawColumnCell

z_g_h_ 2013-11-06 10:34:28
procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
inherited;
If (DataCol<>0) and (Not Column.Field.IsNull) then
begin
If Column.Field.AsString = '0' then //或其它判断条件
DBGrideh1.Canvas.FillRect(Rect);
end;
end;

如何在另一个procedure中调用上述的过程,我试过很方式,总是说参数不对,怎么指定参数,还需要定义参数吗?
...全文
90 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhangzhen_927116 2013-11-06
  • 打赏
  • 举报
回复
直接调用这个事件就可以了啊。怎么会不对

16,749

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧