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

[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