Danke für schnelle Antwort .
2te möglichkeit funktionieret
:
Delphi-Quellcode:
procedure TTestColorChange.ButtonClick(Sender: TObject);
var tmp : string ;
begin
Fenster := TTestFormColorChange.Create(Owner); // verschoben von TTestColorChange.Create
tmp := CCEdit.text ;
if Fenster.Execute( tmp ) then
begin
CCEdit.text := tmp ;
end;
Fenster.Destroy ; // verschoben von TTestColorChange.Destroy
end;
Nochmal Danke.
mfg
Arek