procedure TFkc.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
if GdSelected in State then
begin
exit;
end;
if (dm1.adoquery1.Fieldbyname('字段').Asstring ='' then
aFont.Color := clred
else
aFont.Color := clblue;
end;