delphi中修改dbgrideh每一行的背景颜色

procedure TForm7.dbgrdh1GetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
inherited;
if dbgrdh1.SumList.RecNo mod 2 =1 then//判断那一会
begin
Background:=clbtnface;
end;
end;