Moin !
Ich habe eine Procedure in der ich in einem
MDI Fenster einen Text öffnen muss weil der User dort etwas anpassen muss / soll.
Nun habe ich nach einer Möglichkeit gesucht die Prozedur so lange zu pausieren bis das Fenster geschlossen wird.
Gelöst habe ich das derzeit so:
Delphi-Quellcode:
while Proj.TextEditForm.StopAction = True do begin
Sleep(10);
Application.ProcessMessages;
end;
StopAction ist dabei in der Formularunit definiert:
Delphi-Quellcode:
type
TTextEditForm = class(TForm)
Memo: TMemo;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
StopAction : Boolean;
end;
Mir scheint diese Variante allerdings nicht so gelungen (wenngleich sie funktioniert).
Hat jemand noch eine elegantere Variante?