Hi,
nun versteh ich die Welt nicht mehr. Das ist doch eigentlich ganz simpel. Ich will nur unter einer ganz bestimmten Bedingung die Anwendung schließen. Daz uhabe ich folgendes getan:
ein Property FUserClose : Boolean; definiert, welches ich wie folgt im OnClose berücksichtige
Delphi-Quellcode:
procedure TServerSocketForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
If FUserClose then
Action := cafree
else
Action := caHide;
end;
Ich habe überprüft, dass FUserClose zu diesem Zeitpunkt False ist und für Action caHide zugewiesen wird. Trotzdem wird meine Anwendung geschlossen.
wo ist mein Denkfehler?
Gruß oki