Wie wird ein Fenster geschlossen?

[Marphy]

Hallo zusammen,
mein kleines Problem:
Wenn der User auf den X-Button in der Titelleiste meines Formulars klickt, soll irgendeine Methode aufgerufen werden (z.B. um eine bestimmte Aktion abzubrechen etc.). Wird das Fenster jedoch im Code über ein Close() geschlossen, soll o.g. nicht ausgeführt werden... Wie kann ich dieses Problem am Besten lösen? In VB gibt's im OnCloseQuery()-Event wenigstens noch einen entsprechenden Parameter... Habe ich vielleicht was übersehen?

Danke und liebe Grüße,
Marco

[Boombuler]

Notfalls mach dir selber einen Parameter!

wenn du im Code Close aufrufen willst setzt du einfach eine Bool-Variable auf True und wenn im OnCloseQuery die Variable auf True steht wingst du das direkt durch...

Greetz
B00mbuler

[Kompon Ente]

Zitat von Marphy:

In VB gibt's im OnCloseQuery()-Event wenigstens noch einen entsprechenden Parameter... Habe ich vielleicht was übersehen?

Jep, hast du!

Formular -> Ereignisse -> OnCloseQuery

[fred.reichbier]

Zitat von Kompon Ente:

Zitat von Marphy:

In VB gibt's im OnCloseQuery()-Event wenigstens noch einen entsprechenden Parameter... Habe ich vielleicht was übersehen?

Jep, hast du!

Formular -> Ereignisse -> OnCloseQuery

Ich glaube, OnCloseQuery wird aufgerufen wenn der user auf X drückt und wenn CLOSE aufgerufen wird

[Marphy]

Hallo hier beiden,
danke für die schnellen Antworten!

Zitat von Kompon Ente:

Zitat von Marphy:

In VB gibt's im OnCloseQuery()-Event wenigstens noch einen entsprechenden Parameter... Habe ich vielleicht was übersehen?

Jep, hast du!

Formular -> Ereignisse -> OnCloseQuery

Dass es in Delphi auch ein OnCloseQuery() gibt, weiß ich natürlich. Ein Parameter, der die "Art" angibt, wie ein Formular geschlossen wird, besitzt dieses Event in Delphi jedoch nicht (sehr wohl aber in VB). Das meinte ich

@boombuler:
Diese Lösung habe ich mir auch schon überlegt. Wäre aber allerdings nur eine Notlösung... Warum kann sich jeder selbst denken

@fred:
Genau!

Gruß, Marco

[Khabarakh]

Benutze im Code Application.Terminate, dadurch wird das OnClose-Event übersprungen.
Alternativ könntest du auch vor dem Aufruf von Close die OnClose-Property auf nil setzen.

[Luckie]

Zitat von Khabarakh:

Benutze im Code Application.Terminate, dadurch wird das OnClose-Event übersprungen.

Bist du sicher, dass das so eine gute Idee ist?

Zitat:

Alternativ könntest du auch vor dem Aufruf von Close die OnClose-Property auf nil setzen.

Auch das halte ich eher für eine 'von-hinten-durch-die-Brust-ins-Auge' Lösung.

Einfache eine Boolean Variable im private Abschnitt der Formklasse deklarieren und gut ist.

[Marphy]

Hallo Sebastian,

Zitat von Khabarakh:

Benutze im Code Application.Terminate, dadurch wird das OnClose-Event übersprungen.
Alternativ könntest du auch vor dem Aufruf von Close die OnClose-Property auf nil setzen.

Ich will aber nicht meine ganze Anwendung, sondern nur ein Fenster schließen. Der andere Vorschlag ist auch nicht das Optimum, da (a) zu aufwendig, vor jedem Close() dat Dingens zu "nilen" und nachher wieder auf die entsprechende Methode zu setzen und (2) will ich vielleicht auch bei Close() im OnClose()-Event Code ausführen, nur eben anderen, als wenn der Nutzer die Form über den X-Button schließt.

Gruß, Marco

P.S.: Wie steht's eigentlich mit deinem TChart-Klone?

[Sidorion]

Da kommst Du wohl um eine eigene methode nicht drumrum
close() ist nämlich nicht virtuell und wird imho auch beim Drücken auf das Kreuz gerufen.
eine Lösung wäre:
im Interface deiner Form schreibst du:

Delphi-Quellcode:

  private
   _bExecuteCloseAction: Boolean;
  ...
  public
  ...
  Constructor Create(Owner: TComponent); Override;
  function CloseQuery: Boolean; Override;
  Procedure Close(_bExecuteCloseAction: Boolean); ReIntroduce; Overload;
  ...

der Body der Funltion sieht dann so aus:

Delphi-Quellcode:

Procedure TMyForm.Close(_bExecuteCloseAction: Boolean);
Begin
  bExecuteCloseAction:=_bExecuteCloseAction;
  Close;
End;

Natürlich muss die Boolean variable im Constructor noch initialisiert werden:

Delphi-Quellcode:

Constructor TMyForm.Create(Owner: TComponent);
Begin
  Inherited;
  bExecuteCloseAction:=True;
End;

und im CloseQuery abgeprüft:

Delphi-Quellcode:

function TMyForm.CloseQuery: Boolean; Override;
Begin
  If bExecuteCloseQuery
  Then Begin
    //hier Deine schließfunktionalität
    Result:=?????;
  End Else Result:=True;
End;

Jetzt kannst du irgendwo im code schreiben

Delphi-Quellcode:

MyForm1.Close(false); //wenn nix ausgeführt werden soll
//oder
MyForm.Close;
//bzw
MyForm.Close(true); //wenn die funktionalität ausgeführt werden soll

[Luckie]

Also Jungs, was macht ihr da eigentlich? Das ist ja grausam.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Button1Click(Sender: TObject);
  private
    bCloseButtonUsed: Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  bCloseButtonUsed := False;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if bCloseButtonUsed then
    CanClose := bCloseButtonUsed
  else
    CanClose := Messagebox(Handle, 'Schließen?', 'Fenster schließen', MB_YESNO) = ID_YES;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  bCloseButtonUsed := True;
  Close;
end;

Klickt man auf die Schaltfläche auf dem Formular, wird es sofort geschlossen, bei Klick auf das Kreuz in der Titelleiste kommt die Abfrage. So war es doch gewollt oder?