改变行底色：
procedure TForm1.dggrideh1DrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
if(adqry.FieldByName('status').AsBoolean) then
begin
dggrideh1.Canvas.Brush.Color:=clRed; //行底色变色
dggrideh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
改变行字体颜色：
procedure TForm1.dggrideh1DrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
if(adqry.FieldByName('status').AsBoolean) then
begin
dggrideh1.Canvas.Font.Color:=clMaroon; //行字体变颜色
dggrideh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
参考：