In Unit auf Ereignis der MainForm reagieren

[Cöster]

Hi!

Wie kann ich in einer fremden Unit auf ein Ereignis (OnClose) der MainForm reagieren? Also sobald das Ereignis OnClose der MainForm aufgerufen wird, soll in einer anderen Unit ein bestimmter Code ausgeführt werden.

Danke schonmal

Cöster

[Mavarik]

Das ruf den Code doch in der Onclose vom Mainform auf...

Frank

[Cöster]

Achso, was ich vergessen hab zu sagen:

Der Programmierer der Hauptunit soll sich nicht darum zu kümmern brauchen, dass dieser Code aufgerufen wird. Es soll im Prinzip nur eine Variable auf False gesetzt werden, unzwar sobald die Form geschlossen wird. Diese Variable ist nämlich Abbruchbedingung einer Schleife, die die ganze Zeit im Hintergrund läuft, d.h. wenn die Variable True bliebe, könnte das Programm nicht beendet werden, weil die Schleife nicht abbricht.

[Mavarik]

Ja dann einfach die Variable im CloseQuery setzen...

Frank :coder:

[Cöster]

Hm? OnCloseQuery ist doch auch in der HauptUnit. Der Code zum Setzen auf False soll in einer anderen Unit stehen, also wie wenn diese Boolean-Variable Private ist.

[SirThornberry]

Du könntest mit einem TApplicationEvents die Messages filtern und auf ein wm_close und ensprechende andere Messages reagieren.

[Cöster]

Danke, SirThornberry, während ich mich über TApplicationEvents informieren wollte, bin ich auf Application.Terminated gestoßen. Ich glaub, das ist genau das, was ich suche. Ich prüf jetzt einfach in der Schleife, ob Application.Terminated den Wert True hat und rufe dann gegebenenfalls Exit auf.

Falls es noch eine performantere Lösung gäbe, sodass ich also keine Zeit durch diese If-Abfrage verliere, indem ich z.B. auf eine Message wie Application.OnTerminate (ok gibt's glaub ich nicht, aber ihr wisst, was ich mein) reagieren kann, wäre ich interessiert. Falls das mit TApplicationEvents ginge, wär's nett, wenn ihr's mir anhand von etwas Code erklären könntet.

Danke :cat:

[shmia]

Zitat:

Zitat von Cöster

Ich prüf jetzt einfach in der Schleife, ob Application.Terminated den Wert True hat und rufe dann gegebenenfalls Exit auf.

Richtige Lösung.
Man sollte grundsätzlich in länger dauernden Schleife diese Prüfung vornehmen.
Da Application.Terminated ein einfaches Property ist, geht keine Performance verloren.

[Cöster]

Ok, danke, dann kann ich ja in Ruhe weitercoden :coder: