Programm beenden: Ja oder Nein?

[Luckie]

Da es sich um eine bitweise or-Verknüpfung handelt nicht mit + verknüpfen, sondern mit or.

Und im richtigen Ereignis sieht es so korrekt aus:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Application.MessageBox('Anwendung schließen?', 'Projekt1', MB_ICONQUESTION or MB_YESNO) = ID_YES then
    CanClose := True
  else
    CanClose := False;
end;