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