Programm schließt sich nicht

**DieDolly**

Ich habe eben ein etwas umfangreicheres Programm umgeschrieben. Alles funktioniert bis auf das Schließen des Programms.
Ich schließe das Programm über das MainMenu. Das MainMenu-Item ruft Close; auf. Der Rest erklärt sich von selbst.

Ich habe jeglichen Code bereits rausgenommen, der verdächtig ist und blockieren könnte.
Das Programm wird nach Punkt 3 nicht mehr angezeigt, es befindet sich aber noch im TaskManager.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.CloseProgramClick(Sender: TObject);

begin

 ShowMessage('1) CloseProgramClick');

 Close;

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

 ShowMessage('2) FormCloseQuery');

 CanClose := True;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

 ShowMessage('3) FormClose');

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

 ShowMessage('4) FormDestroy');

end;

Entweder spinnt da was gewaltig oder ich übersehe da gerade etwas und sollte mich schämen.

Programm schließt sich nicht

Programm schließt sich nicht

Forumregeln