Windows Fenster mit Ok und abbrechen?

[idontwantaname]

Zitat von Mystic:

Zitat von idontwantaname:

du kannst das weglassen
case Application.MessageBox('Wollen Sie wirklich beenden?','MeinProgramm',MB_YESNOCANCEL or MB_ICONQUESTION) of

Falsche Frage. Bei Nein wird das Programm ja auch geschlossen.

case Application.MessageBox('Vor dem Schließen speichern?','MeinProgramm',MB_YESNOCANCEL or MB_ICONQUESTION) of

oh, hab mich verschaut, mein beispiel wäre zu einer einfachen abfrage, ob das prog beendet werden soll

Delphi-Quellcode:

case Application.MessageBox('Wollen Sie wirklich beenden?','Mein Programm',MB_YESNO) of
  IDYES: begin
    CanClose := True;
  end;

  IDNO: begin
    CanCLose := False;
  end;
end;