請問我想讓dbgrid有資料的部分,單雙列顏色不同要如何做???

當然用 RecNo 可能不準。

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 := clRed
  else
    Canvas.Brush.Color := clBlue;
  Canvas.FillRect(Rect);
  DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;

-- 將進酒 杯莫停 與君歌一曲 請君為我傾耳聽

可更改 dbgrid 顏色的區顯示 var Form1: TForm1; Grid_integer1: Integer= 1 ; Grid_integer: Integer= 2 ; implementation {$R *.DFM} procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin If gdFocused in State then with (Sender as TDBGrid).Canvas do begin Brush.Color := clRed; FillRect(Rect); TextOut(Rect.Left, Rect.Top, Field.AsString); end; end; procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var ii : integer; oldcolor:tcolor; oldpm:tpenmode; begin if Table1.RecNo mod Grid_integer = Grid_integer1 then begin oldpm:= DBGrid1.Canvas.pen.mode; oldcolor:= DBGrid1.Canvas.Brush.color; DBGrid1.Canvas.Brush.color:= clYellow;//橫格色彩 DBGrid1.Canvas.Font.Color:= clRed; DBGrid1.Canvas.pen.mode:= pmMergeNotPen; DBGrid1.DefaultDrawColumnCell(Rect,DataCol, Column, State); DBGrid1.Canvas.Brush.color:= oldcolor; DBGrid1.Canvas.pen.mode:= oldpm; end; with DBGrid1.Canvas do begin Pen.Color := clRed;//橫線色彩 MoveTo(Rect.Left, Rect.Bottom); LineTo(Rect.Right, Rect.Bottom); Pen.Color := Clblue ;//縱線色彩 MoveTo(Rect.Right, Rect.Top); LineTo(Rect.Right, Rect.Bottom); end; //DbGrid1.Canvas.DrawFocusRect(Rect);//格線加粗 end; ---------------------------- procedure TGridColorForm.SpeedButton1Click(Sender: TObject); begin try if Edit1.Text = '0' then Grid_integer:= 1; if Edit2.Text = '0' then Grid_integer1:= 2; Finally Grid_integer1:= StrToInt(Edit1.Text); Grid_integer:= StrToInt(Edit2.Text); NumBerForm.UNN1Click(Sender); Close; end; end;

引言: 當然用 RecNo 可能不準。

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 := clRed
  else
    Canvas.Brush.Color := clBlue;
  Canvas.FillRect(Rect);
  DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;

-- 將進酒 杯莫停 與君歌一曲 請君為我傾耳聽

如果我在dbgrid上columns editing,以上的程式碼就無效,請問要如何修改??

設了這個屬性後DBGrid1.DefaultDraw:=FALSE; 資料都看不到了

引言: 設了這個屬性後DBGrid1.DefaultDraw:=FALSE; 資料都看不到了

很奇怪, 小弟試的結果 不管 DefaultDrawing 值為 True 或 False OnDrawDataCell 事件都會執行 可是看 Help 關於 DefaultDrawing 的說明又不是如此 另外, 您所謂的 "在 dbgrid 上 columns editing" 是什麼意思？ -- 將進酒 杯莫停 與君歌一曲 請君為我傾耳聽

原來是在 TDBGrid 中加入了 Column 將原程式碼做些修改, 放在 OnDrawColumnCell 事件即可。

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
    Canvas.Brush.Color := clRed
  else
   Canvas.Brush.Color := clBlue;
   Canvas.FillRect(Rect);
   DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);
end;

-- 將進酒 杯莫停 與君歌一曲 請君為我傾耳聽

為什麼我使用 Column.Field.DataSet.RecNo  的傳回值都為-1呢 ********************* * 只要用心一定成功 * *********************

------
*********************
* 只要用心一定成功 *
*********************

看一下 help 的說明吧: Description    As implemented in TDataSet, the value of RecNo is always -1. Ordinarily an application does not access RecNo at the TDataSet level. Instead a redeclared and implemented RecNo property in a descendant class such as TTable is accessed. RecNo provides a fallback property for derived datasets that do not support record numbers. --- 歡迎光臨 KTop 研究院