MessageDlg wahrscheinlich ganz einfach

**Mariaki**

Hi,
mal ne ganz dumme Frage. Ist wahrscheinlich ganz einfach, aber ich komm einfach nicht drauf.
Ich will beim Schließen abfragen, ob man abspeichern will. Das wollte ich da so machen:

markieren

Delphi-Quellcode:

			procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

If MessageDlg('Wollen sie die Rechnung speichern?',mtConfirmation,mbYesNoCancel,0)=id_yes then

  //Speichern

else

  if MessageDlg('Wollen sie die Rechnung speichern?',mtConfirmation,mbYesNoCancel,0)=id_no then

    close

  else

    CanClose:=False;

end;

Aber das Problem ist das sich hierbei der Dialog im Falle von 'No' der Dialog zweimal öffnet.
Wie gesagt ist wahrscheinlich ganz einfach aber es will mir einfach nicht einfallen.

Gruß Mariaki

MessageDlg wahrscheinlich ganz einfach

MessageDlg wahrscheinlich ganz einfach

Forumregeln