如何使DBGrid的指定的编辑框显示指定的颜色？

Question

如何使DBGrid的指定的编辑框显示指定的颜色？

Answer 1

procedure TForm1.DBGrid5DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if gdselected in state then
    begin
          dbgrid5.Canvas.Brush.Color:=clWHITE;
    end
   ELSE
   BEGIN
   if BOMMD.RecNo mod 2 <> 1 then
   begin
   dbgrid5.Canvas.Brush.color:= $00F1F7CD;
   dbgrid5.DefaultDrawColumnCell(rect,datacol,column,state);
   end;
   END;
end;

Answer 2

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  OldBrushColor,OldFontColor:TColor;
begin
 OldBrushColor:=DBGrid1.Canvas.Brush.Color;
 OldFontColor:=DBGrid1.Font.Color; 
 if gdSelected in State then
    begin
      DBGrid1.Canvas.Brush.Color:=YourBrushColor;
      DBGrid1.Font.Color:=YourFontColor;
    end;
   DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
 DBGrid1.Canvas.Brush.Color:=OldBrushColor;
 DBGrid1.Font.Color:=OldFontColor; 
end;

Answer 3

不仅可以让DBGrid的指定的编辑框显示指定的颜色，还可以指定别的很多东西呢，请看代码procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var i :integer;
begin
if gdSelected in State then Exit;//定义表头的字体和背景颜色：for i :=0 to (Sender as TDBGrid).Columns.Count-1 do
begin
  (Sender as TDBGrid).Columns[i].Title.Font.Name :='宋体';      //字体
  (Sender as TDBGrid).Columns[i].Title.Font.Size :=9;           //字体大小
  (Sender as TDBGrid).Columns[i].Title.Font.Color :=$000000ff;  //字体颜色(红色)
  (Sender as TDBGrid).Columns[i].Title.Color :=$000aeeff;       //背景色(黄色)
end;//隔行改变网格背景色：
if AdoQuery1.RecNo mod 2 = 0 then
  (Sender as TDBGrid).Canvas.Brush.Color := clCream   //clInfoBk            //定义背景颜色
else
  (Sender as TDBGrid).Canvas.Brush.Color := RGB(221, 255, 255); //定义背景颜色
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
//定义网格线的颜色：
with (Sender as TDBGrid).Canvas do            //画 cell 的边框
begin
  Pen.Color := clBtnFace;//$00ff0000;                     //定义画笔颜色(蓝色)
  MoveTo(Rect.Left, Rect.Bottom);             //画笔定位
  LineTo(Rect.Right, Rect.Bottom);            //画蓝色的横线
  Pen.Color := clBtnFace;//$0000ff00;                     //定义画笔颜色(绿色)
  MoveTo(Rect.Right, Rect.Top);               //画笔定位
  LineTo(Rect.Right, Rect.Top);            //画绿色的竖线
end;
end;