Kann ich hier gerade nicht nachvollziehen (mit XE2). Das funktioniert tadellos:
Delphi-Quellcode:
procedure TFormMain.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
// CanClose := Vcl.Dialogs.MessageDlg('Programm wirklich beenden?', mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes;
CanClose := Application.MessageBox('
Programm wirklich beenden?','
Achtung!',MB_YESNO
Or MB_ICONEXCLAMATION) = IDYES;
end;