MessageDlg schließen

[Smeivel]

Hallo erst mal an alle!
Ich habe zuerst mal ein Problem mit dem Message Dialog und zwar möchte ich den messageDlg beenden können wenn ich auf NEIN klicke, doch hab ich nirgendwo einen passenden quellcode gefunden der einen MessageDlg schließen kann. Wenn ich auf ja klicke soll das ganze Programm geschlossen werden, doch passiert das mit folgendem code wenn ich auf NEIN klicke , dies sollte doch normalerweise andersherum sein.

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Case MessageDlg('sicher?',mtconfirmation,[mbYes,mbNO,mbCancel],0) Of
       mrYes    : Form1.Close;
       mrNo     : //???;
   end;
end;

[toms]

Hallo,


Was passiert, wenn du der Action etwas zuweist?

[Martin K]

Hi,

nimm mal OnCloseQuery anstatt OnClose.
Mit CanClose kannst Du dann festlegen, ob die Form geschlossen werden soll oder nicht:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := MessageDlg('sicher?',mtconfirmation,[mbYes,mbNO,mbCancel],0) = mrYes;
end;

[Cyberbob]

Ist eine möglichkeit. Mit OnClose gehts aber auch! Etwa so:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if MessageDlg('sicher?',mtconfirmation,[mbYes,mbNO,mbCancel],0) = mrNo then Action := caNone;
end;

So wird das Programm nur geschlossen, wenn auf Ja geklickt wird.

[faux]

Zitat von Cyberbob:

Ist eine möglichkeit. Mit OnClose gehts aber auch!

Wieso sollte man absichtlich ein anderes Event benutzen wenn man es mit einem extra dafür geschaffenen Event auch lösen kann?

Grüße
Faux

[Hawkeye219]

Zitat von Cyberbob:

So wird das Programm nur geschlossen, wenn auf Ja geklickt wird.

...oder der Benutzer den Dialog abbricht.

Gruß Hawkeye