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

[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 von 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;

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

[Darlo]

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.

[Darlo]

Zitat von Darlo:

Habe probiert das Form automatisch erzeugen zu lassen. Da funktioniert das Application.FindComponent('frmContentMantel') auch nicht.

Dann dürfte doch das ARC keinen Einfluss haben, oder?

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

[Uwe Raabe]

Zitat von Darlo:

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;

Du sollst RealCreateForm gar nicht aufrufen. Es hat schließlich einen Grund, warum das je nach OS an anderen Stellen passiert. Warum hälst du dich nicht einfach an die Vorgabe, die in der Doku beschrieben ist und auf die schon merhfach hingewiesen wurde?

[Mavarik]

Zitat von Uwe Raabe:

Du sollst RealCreateForm gar nicht aufrufen. Es hat schließlich einen Grund, warum das je nach OS an anderen Stellen passiert. Warum hälst du dich nicht einfach an die Vorgabe, die in der Doku beschrieben ist und auf die schon merhfach hingewiesen wurde?

Eben WOFÜR auch...

Delphi-Quellcode:

Foo := TFoo.Create(NIL);
Foo := TFoo.Create(Application);

und gut ist...

Warum überhaupt ein Find?

[Darlo]

Muss mir wohl eingestehen dass hier ein Designfehler vorliegt den ich mir nicht wieder gerade basteln kann... auf alle Fälle nicht crossplatform.

[Uwe Raabe]

Du kannst die aktuell vorhandenen Forms auch über Screen.Forms /Screen.FormCount durchwandern und schauen ob du was passendes findest.