Form zur Laufzeit erzeugen und mit assigned prüfen ob vorhanden

[Darlo]

Hallo zusammen,

ich erzeuge mit folgenden Code Formulare

Delphi-Quellcode:

if not assigned(frmContentMantel) then
  Application.CreateForm(TfrmContentMantel, frmContentMantel);

Jetzt möchte ich an einer anderen Stelle überprüfen ob das das Formular erzeugt ist. Das mache ich so

Delphi-Quellcode:

if not assigned(Application.FindComponent(formListe[n]) as TForm) then
begin
  continue;
end;

Das komische ist, das funktioniert unter Windows und OS X wunderbar. Nur unter iOS wird das

Delphi-Quellcode:

continue;

ausgeführt.

Kann mir jemand helfen?

Gruß
Philip

[Uwe Raabe]

Vermutlich wurde RealCreateForms noch nicht aufgerufen. Bei Windows und OSX passiert das direkt beim Application.Run, aber unter iOS und Android kommt das erst später. Solange diese Methode nicht aufgerufen wurde, erzeugt Application.CreateForm die Instanzen nicht wirklich.

[himitsu]

Warum benutzt du Application.CreateForm?

Ich würde das niemals für dynamische Forms benutzen.
Und was passiert wohl, wenn Embarcadero mal auf die Idee kommt diesen Forms z.B. einen anderen Owner verpasst? :roll:

[edit]

Zitat:

Zitat von Uwe Raabe (Beitrag 1327001)

RealCreateForms

Hey, da gibt es sogar einen passenden letzten Absatz dort. :angle:

[Darlo]

Hmm,
TApplication.CreateForm

[himitsu]

Wieso "Hmmm?" ?

Ach dort steht "Tipp: CreateForm erstellt das angegebene Formular nicht sofort." .

[Darlo]

Verstehe noch nicht warum man Application.CreateForm nicht nehmen sollte.
Folgender Code ändert leider auch nix an dem Problem...

Delphi-Quellcode:

if not assigned(frmContentMantel) then
      begin
        Application.CreateForm(TfrmContentMantel, frmContentMantel);
        //frmContentMantel := TfrmContentMantel.Create(Application);
        Application.RealCreateForms;
      end;

[Mavarik]

Zitat:

Zitat von Darlo (Beitrag 1327012)

Verstehe noch nicht warum man Application.CreateForm nicht nehmen sollte.
Folgender Code ändert leider auch nix an dem Problem...

Delphi-Quellcode:

if not assigned(frmContentMantel) then
      begin
        Application.CreateForm(TfrmContentMantel, frmContentMantel);
        //frmContentMantel := TfrmContentMantel.Create(Application);
        Application.RealCreateForms;
      end;

frmContentMantel? Wo ist das definiert? Lokal? -> ARC!

[bra]

In der Hilfe von http://docwiki.embarcadero.com/Libra...ealCreateForms steht:
Um zur Laufzeit weitere Formulare zu erstellen, verwenden Sie FMX.Forms.TForm.Create, FMX.Forms3D.TForm3D.Create oder TForm1.Create.

[Darlo]

Delphi-Quellcode:

implementation
uses
  contentMantel{frmContentMantel};

Habe probiert das Form automatisch erzeugen zu lassen. Da funktioniert das

Delphi-Quellcode:

Application.FindComponent('frmContentMantel')

auch nicht.

[bra]

Wie Maverik schon schrieb. Wenn das Form lokal erzeugt wird und du dann von einer anderen Stelle versuchst darauf zuzugreifen, ist es von ARC möglicherweise schon wieder zerstört worden. Darum wird es mit FindComponent auch nicht gefunden.