Hallo Helmi,
wenn du eine Zelle im Grid editierst, dann editierst du in Wirklichkeit einen InplaceEditor:
Delphi-Quellcode:
type
THackedStringGrid = class(TStringGrid);
TColorInplaceEdit = class(TInplaceEdit)
published
property Color;
end;
procedure TDemoForm.StringGridGetEditText(Sender: TObject; ACol,
ARow: Integer; var Value: String);
begin
// ...
with TColorInplaceEdit(THackedStringGrid(Sender).InplaceEditor) do
begin
Color := clNavy;
Font.Color := clWhite;
Invalidate;
end;
end;
Grüße vom marabu