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:

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

[DSFreak]

Einfach den Wert in einer Variablen speichern.

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  tmp : Byte;
begin
tmp := MessageDlg('Wollen sie die Rechnung speichern?',mtConfirmation,mbYesNoCancel,0)
If tmp=id_yes then
  //Speichern
else
  if tmp=id_no then
    close
  else
    CanClose:=False;
end;

[Klaus01]

Delphi-Quellcode:

if MessageDlg('Wollen sie die Rechnung speichern?',mtConfirmation,mbYesNoCancel,0)=id_no then 
  close // hier wird das Close Event wieder gestartet und dadurch die CloseQuery nochmals ausgeführt.
else 
  CanClose:=False; 
end;

vielleicht klappt es so besser:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
begin
  canClose:=true; 
  If MessageDlg('Wollen sie die Rechnung speichern?',mtConfirmation,mbYesNoCancel,0)=id_yes then 
    //Speichern 
  else 
       // die Fragestellung etwas überarbeitet
    if MessageDlg('Wollen sie die Rechnung wirklich nicht speichern?',mtConfirmation,mbYesNoCancel,0)=id_yes then 
      close 
    else 
      CanClose:=False; 
end;

Grüße
Klaus

[DeddyH]

Dann kommt der Dialog aber 2 mal, oder täusche ich mich?

[edit] Anderer Vorschlag:

Delphi-Quellcode:

CanClose := True;
case MessageDlg('Wollen sie die Rechnung speichern?',mtConfirmation,mbYesNoCancel,0) of
  ID_YES: Speichern;
  ID_CANCEL: CanClose := False;
end;

[/edit]

[Klaus01]

Zitat von DeddyH:

Dann kommt der Dialog aber 2 mal, oder täusche ich mich?

wen meinst denn Du?

Grüße
Klaus

[DeddyH]

Ich hatte Dich gemeint, aber Du hast ja bereits editiert. Wobei mich eine nochmalige Abfrage als Anwender nerven würde, aber das muss ja jeder selber wissen

[Klaus01]

Zitat von DeddyH:

.. Wobei mich eine nochmalige Abfrage als Anwender nerven würde, ..

..mich auch.

Grüße
Klaus

[Mariaki]

Jo danke für die Antwort.. ich dachte immer integer wären nur Zahlen aber das zählt ja auch dazu.

[SirThornberry]

Kannst du bitte dem Beitrag einen aussagekräftigen Titel geben?

[xZise]

Zitat von Klaus01:

Zitat von DeddyH:

.. Wobei mich eine nochmalige Abfrage als Anwender nerven würde, ..

..mich auch.

Grüße
Klaus

Genau. Er wollte nämlich nur wissen, wie er dies verhindert, weil er ja drei verschiedene Zustände überprüft. Ich hätte mich für DeddyHs Verschlag entschieden, da dieser am "einfachsten" ist.

MfG
xZise