StringGrid Zelle wird erst nach verlassen der Zelle eingefär

[marabu]

Moin Chemiker,

wenn du mit der Standardkomponente TStringGrid arbeitest, dann genügt es, wenn du im richtigen Augenblick die Farbe deines Editors an die in Objects[] hinterlegte Farbe anpasst:

Delphi-Quellcode:

uses
  Mask;

type
  TGridCracker = class(TStringGrid);

procedure TDemoForm.StringGridGetEditText(Sender: TObject; ACol,
  ARow: Integer; var Value: String);
begin
  with TGridCracker(Sender) do
    if Assigned(InplaceEditor) then
      if Assigned(Objects[Col, Row])
        then TMaskEdit(InplaceEditor).Color := TColor(Objects[ACol, ARow])
        else TMaskEdit(InplaceEditor).Color := Color;
end;

Grüße vom marabu