Eigenschaften einer Zelle im DBGrid zur Laufzeit ändern.

[Sharky]

Zitat von Berserker:

Ich wende mich mit einem Problem an euch das ich nicht lösen kann.

Mal sehen ob es so geht:

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 If (Column.FieldName = 'STATUS') then
  begin
   Case Column.Field.AsInteger of
     0:  DBGrid1.Canvas.Brush.Color := clWhite;
     1:  DBGrid1.Canvas.Brush.Color := clRed;
     2:  DBGrid1.Canvas.Brush.Color := clBlue;
    end;
   end;
 DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Den Code einfach in das OnDrawColumnCell - Ereigniss deines DBGrid eintragen.