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

markieren

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 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?

[edit]

Zitat von Uwe Raabe:

RealCreateForms

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

**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...

markieren

Delphi-Quellcode:

			if not assigned(frmContentMantel) then

      begin

        Application.CreateForm(TfrmContentMantel, frmContentMantel);

        //frmContentMantel := TfrmContentMantel.Create(Application);

        Application.RealCreateForms;

      end;

**Mavarik**

Zitat von Darlo:

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

markieren

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**

markieren

Delphi-Quellcode:

			implementation

uses

  contentMantel{frmContentMantel};

Habe probiert das Form automatisch erzeugen zu lassen. Da funktioniert das 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.

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

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

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

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

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

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

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

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

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

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

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

Forumregeln

Darlo Registriert seit: 28. Jul 2008 Ort: München 1.196 Beiträge Delphi 10.2 Tokyo Enterprise	#4 AW: Form zur Laufzeit erzeugen und mit assigned prüfen ob vorhanden 14. Jan 2016, 12:48 Hmm, TApplication.CreateForm Philip
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 43.153 Beiträge Delphi 12 Athens	#5 AW: Form zur Laufzeit erzeugen und mit assigned prüfen ob vorhanden 14. Jan 2016, 12:55 Wieso "Hmmm?" ? Ach dort steht "Tipp: CreateForm erstellt das angegebene Formular nicht sofort." . Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. my Delphi wish list : BugReports/FeatureRequests
	Zitat

bra Registriert seit: 20. Jan 2015 711 Beiträge Delphi 10.2 Tokyo Enterprise	#8 AW: Form zur Laufzeit erzeugen und mit assigned prüfen ob vorhanden 14. Jan 2016, 13:18 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.
	Zitat

Darlo Registriert seit: 28. Jul 2008 Ort: München 1.196 Beiträge Delphi 10.2 Tokyo Enterprise	#9 AW: Form zur Laufzeit erzeugen und mit assigned prüfen ob vorhanden 14. Jan 2016, 13:20 markieren Delphi-Quellcode: implementation uses contentMantel{frmContentMantel}; Habe probiert das Form automatisch erzeugen zu lassen. Da funktioniert das Application.FindComponent('frmContentMantel') auch nicht. Philip
	Zitat

bra Registriert seit: 20. Jan 2015 711 Beiträge Delphi 10.2 Tokyo Enterprise	#10 AW: Form zur Laufzeit erzeugen und mit assigned prüfen ob vorhanden 14. Jan 2016, 13:23 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.
	Zitat