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.
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.