OnFormDestroy Frage "wirklich schließen"

[faux]

Mache es so, wie ManuMF es vorschlug, so gehts.
Oder so:

Delphi-Quellcode:

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

Bleibt im Sinne egal, jenachdem wie man will. Ich bevorzuge eher ManuMF's Methode.

Grüße
Faux