关于控制DBGRID控件的问题,应该不是很难,清高手指教

chinayf 2005-01-25 05:55:36

如何改变DBGRID控件被选择整个行的颜色
默认是伸蓝,我已经改了OPTION的属性

...全文

78 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

jinjazz 2005-01-25

打赏
举报

procedure TForm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
....

jinjazz 2005-01-25

打赏
举报

procedure TForm1.DBGridDrawColumnCell_E(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
Tdbgrid(sender).Color:=clAqua;
Tdbgrid(sender).Options:=Tdbgrid(sender).Options +[dgRowSelect];
if ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then
DbGrid1.Canvas.Brush.color:=clRed; //当前行以红色显示，其它行使用背景的浅绿色
DbGrid1.Canvas.pen.mode:=pmmask;
DbGrid1.DefaultDrawColumnCell (Rect,DataCol,Column,State);
end;