hier ! habe selber eine lösung gefunden!
Delphi-Quellcode:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
aValue: string;
begin
if Column.Index = 1 then begin {nummer der spalte im dbgrid}
aValue:= Column.Field.asString; {suchbegriff auslesen}
if aValue = 'Erfasst' then begin
DBGrid1.Canvas.Brush.Color := clYellow;
DBGrid1.Canvas.Font.Color := clblack
end else begin
DBGrid1.Canvas.Brush.Color := clWhite;
DBGrid1.Canvas.Font.Color := clblack
end;
DBGRid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;