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