再线关注，有关于dbgrid

Question

不好意思，我字打错了，问题是这样的
请问。如何再dbgrid中对当前选中的记录的背景颜色进行修改

Answer 1

在dbgrid1DrawColumnCell(Sender: TObject;  const Rect: TRect; DataCol: Integer; Column: TColumnEh;  State: TGridDrawState);事件里写代码！

Answer 2

TStringGrid的OnDrawCell事件有个画Cell的例子
你可以看看！

Answer 3

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    DBGrid1.Canvas.Font.Color := clWhite;
    DBGrid1.Canvas.Brush.Color := clRed;  //这里设置单元格填充色
      end;
  //输出内容
  DBGrid1.Canvas.TextRect( Rect, Rect.Left, Rect.Top, Column.Field.AsString);
end;

Answer 4

你有没有ABC控件,它的例子有原码

Answer 5

if (gdSelected  in State) then
begin
  DBGrid1.Canvas.Font.Color := clWhite;
  DBGrid1.Canvas.Brush.Color := clRed; 
end;
DBGrid1.DefaultDrawColumnCell(Rect,Dataol,Column,State);

Answer 6

to windindance 
  你调用defaultdrawcolumncell函数时，那几个参数的值如何给，