DBGrid颜色条的设置

Question

我想给DBGrid的偶数行设置蓝色，奇数行设置浅绿色，该在DBGrid中的哪个事件中添加代码呢？该用什么代码实现呢？

Answer 1

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

Answer 2

DBGrid1.Canvas.Brush.Color:=clBlue //这个颜色自己设吧...我晕

Answer 3

DefaultDrawColumnCell(rect, datacol, Column, state);

Answer 4

onDrawColumnCell    事件里面if self.qDetailstatus.Value<>1 then begin
        dbGridEh1.Canvas.Font.Color := clRed;
    end;
    dbGridEh1.DefaultDrawColumnCell(rect, datacol, column, state);

Answer 5

if a=1 then begin
  dbGridEh1.Canvas.Font.Color := clRed;
end else begin
  dbGridEh1.Canvas.Font.Color := clgreen;end;
    dbGridEh1.DefaultDrawColumnCell(rect, datacol, column, state);