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