Forum: Sonstige Fragen zu Delphi
Delphi
by faux,
14. Apr 2006
Mache es so, wie ManuMF es vorschlug, so gehts.
Oder so:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := False;
if MessageDlg('Wollen Sie wirklich beenden?', mtConfirmation, , 0) = mrYes then
CanClose := True;
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by faux,
14. Apr 2006
Hallo!
OnDestroy wird dann aufgerufen, wenn es bereits zu spät ist, um es mal kurz zu sagen. :zwinker:
Probier mal OnCloseQuery.
NACHTRAG:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Wollen Sie wirklich beenden?', mtConfirmation, , 0) = mrNo then
CanClose := False;