請問各位。 在網頁上，如果在畫面顯示DBGrid時， 可以作到一列顏色為白下一列顏色為藍色。 在Delphi中DBGrid可以作到這樣的功能嗎。 麻煩大家。謝謝。

您好： 当然可以，参考： http://delphi.ktop.com.tw/topic.php?topic_id=19121 http://delphi.ktop.com.tw/topic.php?topic_id=25332

 procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var
  Canvas: TCanvas;
begin
  Canvas := (Sender as TDBGrid).Canvas;
  if((Field.DataSet.RecNo mod 2)=0) then
    Canvas.Brush.Color := clwhite
  else
    Canvas.Brush.Color := clBlue;
  Canvas.FillRect(Rect);
  DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;

查询“DBGrid”有很多相关的资讯~~ <> ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================ 發表人 -

謝謝您。 目前功能有出來，但是如果設為'白色'和'淡藍色'時， 當我點選某一筆時，字是白色，如該列為白色， 則字就看不到，可否當使用者點選時，字統一顏色為'黑色' 以下，為我程式部份。 procedure TFACOAM04.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var Canvas: TCanvas; begin Canvas := (Sender as TDBGrid).Canvas; if((Column.Field.DataSet.RecNo mod 2)=0) then Canvas.Brush.Color := clWindow else Canvas.Brush.Color := clInactiveCaptionText; Canvas.FillRect(Rect); DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State); end; 謝謝。

您好：我另给你的两个链接其中天使大大的实例中，有介绍到改变字体颜色的啊，您可以去看看，小弟略作修改，看是不是您所要的

 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Canvas: TCanvas;
begin
  Canvas := (Sender as TDBGrid).Canvas;
  if((Column.Field.DataSet.RecNo mod 2)=0) then
    begin
      Canvas.Brush.Color := clWindow;
      Canvas.Font.Color :=Clblack;
    end
  else
    begin
      Canvas.Brush.Color := clInactiveCaptionText;
      Canvas.Font.Color :=Clblack; 
    end;
    Canvas.FillRect(Rect);
    DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);
end;

============================ 为什么经过多年以后，得失的过程如此冷漠 ============================