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;

转载于:https://www.cnblogs.com/wgq7325/p/6699882.html