procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TDBGrid(Sender) do
begin
case Self.ADOQuery1.RecNo Mod 2 of
0: Canvas.Brush.Color :=clMoneyGreen;
1: Canvas.Brush.Color :=clWindow;
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin //例如
if Field.Name='价格' then
begin
if Field.AsInteger>500 then
dbgrid1.Canvas.Brush.Color:=clred
else
dbgrid1.Canvas.Brush.Color:=clGreen;
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State);