Das zuletzt geöffnete TForm finden?

[KodeZwerg]

OnActiveControlChange Beispiel damit könntest Du Dir irgendwo Dein zuletzt geöffnetest speichern bzw was basteln was bei dem Ereigniss darauf reagiert falls Du verstehst was ich meine.

[günni0]

Habe es nun folgendermaßen gelöst.
Meine Prozedur die für das Erstellen für Formulare zuständig ist, setzt das aktuelle Formular in einer public class-var.
Da wo ich diese Variable dann benötige frage ich ab

Delphi-Quellcode:

     if Assigned(TFormUtils.LastOpenedForm) and TFormUtils.LastOpenedForm.Visible then // LastOpenedForm vom Typ TForm
      aForm := TFormUtils.LastOpenedForm
     else
      aForm := Screen.ActiveForm; // Fallback ?

Die von euch empfohlene Prozedur habe ich jedoch noch aufgeteilt in
- ShowForm
- CreateForm
und
- CreateAndShowForm (ruft CreateForm und ShowForm auf)
Zusätzlich erweitert um einen Parameter der regelt, ob man Show oder ShowModal haben möchte. Und zuletzt noch ein Result vom Typ TModalResult.
Funktioniert sehr gut auch mit komplexeren Aufrufen und Formularen. Eine Hand voll habe ich schon abgearbeitet, der Rest (viele weitere Hände voll) kommt noch. Heute habe ich aber keine Lust mehr.

[KodeZwerg]

OnActiveFormChange das wollte ich Eigentlich senden, sorry zu spät.

[günni0]

Screen.OnActiveFormChange kannte ich gar nicht. Quasi eine globale, schon existierende Variable genau wie ich sie eben selber erstellt habe.
Ich setze sie lediglich. Ich setze nicht zurück auf nil, da ich das sonst in wirklich jedes OnClose jeder Form schreiben müsste.
Daher meine If-Abfrage mit Assigned und Visible.