如何把DBgrid中的表示编辑状态的蓝色给去掉，只显示背景色。

Question

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
 // dbgrid1.Canvas.Font.Color:=clgreen; // 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);end;

Answer 1

begin
with TDbgrid(sender) do
  begin
    if gdSelected in state then
    begin
      canvas.brush.color:=clwhite;
      Canvas.Font.Color:=clblack;//$00FFFFFF;
      DefaultDrawColumnCell(rect,datacol,column,state);
    end else
    begin      canvas.brush.color:=$ffffff;
      DefaultDrawColumnCell(rect,datacol,column,state);
    end;
  end;
end;