Also ich persönlich mag den MessageDlg nicht so
Ich mache das immer so:
Delphi-Quellcode:
procedure THaupt.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (Application.MessageBox('Sind Sie sicher, dass Sie diese Anwendung schließen möchten?', 'Information', MB_IconInformation + MB_YesNo) = ID_Yes) then
begin
// ggf. alles freigeben, Bitmaps, SL's usw
Self.Close; // ENDE!
end;
end;