先将dbgrid的dgrowselected属性设为true;然后在dbgrid的DrawColumnCel事件里写: procedure TFrmQuery.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if gdSelected in state then dbgrid1.Canvas.Brush.Color:=clgreen; dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);end;
csdn类似的贴子一把一把的……
直接把兰色改成了自己想要的颜色!
procedure TFrmQuery.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if gdSelected in state then
dbgrid1.Canvas.Brush.Color:=clgreen;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);end;
还有一个小问题,如何能在双击DBGRID的一行后将该行一直保持为被选中状态呢。问完这个问题后结贴了,如果大家觉得分少的话,可以再加
------------------------------------------------------
是什么意思?