OnFormDestroy Frage "wirklich schließen"

[ManuMF]

@faux: Der Dialog könnte evtl. anders geschlossen werden als mit Klick auf "Nein". Deshalb ist es hier meiner Meinung nach besser, das "Ja" abzufragen:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := MessageDlg('Wollen Sie wirklich beenden?', mtConfirmation, [mbYes, mbNo], 0) = mrYes;
end;

Gruß,
ManuMF