怎样使dbgrid的背景色的奇数行和偶数行不同，希望高手指点..

[treezzh]

在使用dbgrid时，
怎样使dbgrid的背景色的奇数行和偶数行不同，希望高手指点..

[hunter_zxy]

dbgrid1.canvas.lock;
if dataset.recno mod 2 =1 then
dbgrid1.canvas.brush.color:=clbtnface
else
dbgrid1.canvas.brush.color:=clwhite;
dbgrid1.canvas.unlock;

[jinhe]

编译是有错

[jinhe]

属性dbGrid1.defaultdrawing:=false
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
var
s:string;
begin
if (DBGrid1.DataSource.DataSet.RecNo) mod 2 = 0 then
begin
DBGrid1.Canvas.pen.Color:= clblack;
DBGrid1.Canvas.brush.Color:= clred;
s:=Field.AsString;
DBGrid1.Canvas.FillRect(rect);
DBGrid1.Canvas.TextOut(rect.Left,Rect.top,s);
end
else
begin
end;
DBGrid1.DefaultDrawing:=true;
end;

试试这个吧

[peihexian]

gz

[tikkypeng]

搜索以前的帖子~太多了

[songlichao]

{with Dbgrid_List_mx do
if datasource.dataset.active then
if SumList.RecNo mod 2 = 1 then
Background := $00FFC4C4
else
Background := $00FFDDDD;
}

用的是DBGridEh

[hunter_zxy]

if (tbgrid(dbgrid1).row mod 2)=0 then
dbgrid1.canvas.color:=clbtnface
else
dbgrid1.canvas.color:=clwhite

[王集鹄]

procedure TFormDocBrowse.DBGridBodyDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if not Odd(TDBGrid(Sender).DataSource.DataSet.RecNo) then begin
TDBGrid(Sender).Canvas.Brush.Color := clSkyBlue;
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;