在DElphi中的DataGrid怎样使它显示的行间隔改变颜色？

在DElphi中的DataGrid怎样使它显示的行间隔改变颜色？就向.NET中同名控件一样。

---------------------------------------------------------------

好像是在 OnDrawDataCell 事件中写代码。

---------------------------------------------------------------

procedure TForm1.dbgridDrawColumnCell(Sender: TObject;

const Rect: TRect; DataCol: Integer; Column: TColumn;

State: TGridDrawState);

begin

if DBGrid2.DataSource.DataSet.RecNo mod 2=1 then

begin

DBGrid2.Canvas.Font.Color := clBlue;

DBGrid2.Canvas.Brush.Color:=clyellow;

end

else begin

DBGrid2.Canvas.Font.Color := clred;

DBGrid2.Canvas.Brush.Color:= clGradientActiveCaption;

end;

DBGrid2.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;