Fenster schließen - Abfrage

[mytar]

Ein Beispiel für das FormClose-Event:

Delphi-Quellcode:

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

  if MessageDlg('Beenden?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    Action := caFree
  else
    Action := caNone;

end;

greetz
mytar