求解 ongetcellparams事件与onDrawcolumncell同时使用的问题!

zhangweiqq 2013-11-13 03:52:39
procedure TForm1.DBGridEh1Columns0GetCellParams(Sender: TObject;
EditMode: Boolean; Params: TColCellParamsEh);
begin
params.Text:=inttostr(params.Row);
end; //这段话产生了序号

procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if pos('E',adoquery1.FieldByName('料号').AsString)=3 then
DBGridEh1.Canvas.Brush.Color:=clyellow
else
DBGridEh1.Canvas.Brush.Color:=clwhite;
DBGridEh1.DefaultDrawColumnCell(rect,datacol,column,state);
end; //这段话有产生了画笔
//当上面2段话分别单独运行都OK,单是在同一个工程中运行的话,就只显示画笔的颜色,就不显示序号,求解,这是为什么?

...全文
215 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhangweiqq 2013-11-13
  • 打赏
  • 举报
回复
好像是覆盖了,其实里面还是有序号的! 应该怎么办?
smhilyyan 2013-11-13
  • 打赏
  • 举报
回复
会不会设置完text又画上去盖掉了?

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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