Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: OnFormDestroy Frage "wirklich schließen"

    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

  Re: OnFormDestroy Frage "wirklich schließen"

    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;