Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: OnFormDestroy Frage "wirklich schließen"

    Delphi
    by Hawkeye219, 14. Apr 2006
  Wenn man Formulare vererbt, kann es aber zu Problemen führen, wenn CanClose immer gesetzt wird:
  
  
  procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  begin
  // geerbter Aufruf
  inherited;
  // überschreibt eine Einstellung im geerbten Aufruf
  CanClose := MessageDlg('Wollen Sie wirklich beenden?', mtConfirmation, , 0) = mrYes;
  end;
• Forum: Sonstige Fragen zu Delphi

  Re: OnFormDestroy Frage "wirklich schließen"

    Delphi
    by Hawkeye219, 14. Apr 2006
  ...und wenn ich im MessageDialog auf das "x" klicke, wird das Hauptformular ebenfalls geschlossen :(
  
  Die Abfrage sollte man besser so formulieren:
  
  
  procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  begin
  if MessageDlg('Wollen Sie wirklich beenden?', mtConfirmation, , 0) <> mrYes then
  CanClose := False;
  end;