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

[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