MessageDlg - Rückgabewert überprüfung läuft schief ;(

[f4k3]

Habe im OnClose-Event eine Abfrage über einen MessageDlg ... der Abfragen soll ob das Programm beendet werden soll oder nicht.
Wenn "ja" gedrückt wurde, soll das Programm beendet werden ...
Wenn "nein" gedrückt wurde, soll nichts geschehen ...

Ich mach das ganze über die Close-Actions ... mein Code sieht folgendermaßen aus

Delphi-Quellcode:

procedure TfMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  { Sicherheitsabfrage ob Programm beendet werden soll }
  if MessageDlg('Programm beenden?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    caFree;
  end
  else
  begin
    caNone;
  end;     
end;

und so ruf ich dass ganze auf ...

Delphi-Quellcode:

procedure TfMain.btnCloseClick(Sender: TObject);
begin
  { Programm schliessen }
  fMain.Close;
end;

Nun ... egal was "drücke" ... das Programm wird immer beendet ... das ganze ist insofern merkwürdig ...
dass ich diese Code-Zeile bestimmt schon 100x in anderen Programmen ausgeführt habe ... und da hats korrekt funktioniert

Oder bin ich einfach zu doof und hab was übersehen?!

Danke für eure Hilfe

Euer f4k3

[fkerber]

Hi!

Müsstes du cafree und canone nicht der Var. action zuweisen?


Ciao, Frederic

[f4k3]

Zitat von fkerber:

Hi!

Müsstes du cafree und canone nicht der Var. action zuweisen?


Ciao, Frederic

Owman ... korrekt

es müsste natürlich lauten ...

Delphi-Quellcode:

procedure TfMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  { Sicherheitsabfrage ob Programm beendet werden soll }
  if MessageDlg('Programm beenden?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    Action := caFree;
  end
  else
  begin
    Action := caNone;
  end;     
end;

Immer nachm Urlaub xD ... Danke für die schnelle Antwort

[SirThornberry]

im übrigen kannst du dir das caFree sparen da dies die Standardaction des Hauptforms ist:

Delphi-Quellcode:

procedure TfMain.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  { Sicherheitsabfrage ob Programm beendet werden soll } 
  if (MessageDlg('Programm beenden?', mtConfirmation, [mbYes, mbNo], 0) <> mrYes) then 
  begin
    Action := caNone; 
  end;      
end;

[f4k3]

Zitat von SirThornberry:

im übrigen kannst du dir das caFree sparen da dies die Standardaction des Hauptforms ist:

Delphi-Quellcode:

procedure TfMain.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  { Sicherheitsabfrage ob Programm beendet werden soll } 
  if (MessageDlg('Programm beenden?', mtConfirmation, [mbYes, mbNo], 0) <> mrYes) then 
  begin
    Action := caNone; 
  end;      
end;

Danke fürn Tipp

Hätt ich auch selbst drauf kommen können

[EDatabaseError]

Wäre für das ganze OnCloseQuery nicht angebrachter

Tobi

[SirThornberry]

Ich habe auch immer das OnClose-Ereignis verwendet und habe darin nie Nachteile gesehen eher Vorteile da man einer größere Auswahl an möglichen Aktionen hat.