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

Question

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

Answer 1

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;

Answer 2

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