菜鸟问题怎样把 DBgrid的当前记录的底色变成红色而其他记录底色不变？

pasud5 2001-11-10 04:19:45

...全文

77 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

pasud5 2001-11-10

打赏
举报

没人知道吗？

pasud5 2001-11-10

打赏
举报

但是我是希望，当鼠标双击的时候才把它变红的哦

Bob7946 2001-11-10

打赏
举报

就是Dbgrid的DBGrid1DrawDataCell事件中的State：
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
...
中的State，是TGridDrawState类型的

pasud5 2001-11-10

打赏
举报

state是什么？

Bob7946 2001-11-10

打赏
举报

设置Dbgrid的DBGrid1DrawDataCell事件中添加如下代码：
if gdSelected in state then
SetBkColor(dbgrid1.canvas.handle,clred)
else
setbkcolor(dbgrid1.canvas.handle,clwhite);
dbgrid1.Canvas.TextRect(rect,0,0,field.AsString);
dbgrid1.Canvas.Textout(rect.Left,rect.Top,field.AsString);