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.