Kleiner Schönheitsfehler in der vorstehenden Lösung: Damit das Programm beim nächsten Schließen beendet werden kann, denn wenn CanClose:=False ist, kommt man aus dem Programm nicht mehr so einfach raus, muss irgendwo ein CanClose:=True rein. z. B. so:
Delphi-Quellcode:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Close the form?', mtConfirmation,
[mbOk, mbCancel], 0) = mrCancel then
CanClose := False else
CanClose := True;
end;
F1 hat nicht immer offensichtlich die beste Lösung. Alles klar?
Beste Grüße
Go2EITS