属性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;
dbgrid1.canvas.lock;
if dataset.recno mod 2 =1 then
dbgrid1.canvas.brush.color:=clbtnface
else
dbgrid1.canvas.brush.color:=clwhite;
dbgrid1.canvas.unlock;