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.

[Darlo]

Zitat:

Zitat von Darlo (Beitrag 1327019)

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

Delphi-Quellcode:

Application.FindComponent('frmContentMantel')

auch nicht.

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

[Uwe Raabe]

Zitat:

Zitat von Darlo (Beitrag 1327012)

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:

Zitat von Uwe Raabe (Beitrag 1327033)

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

Delphi-Quellcode:

Screen.Forms

/

Delphi-Quellcode:

Screen.FormCount

durchwandern und schauen ob du was passendes findest.

[Darlo]

Ich zeige die Forms nicht an. Ich hole mir nur Panels aus den Forms auf mein Mainform um Eingaben zu verwalten.

[himitsu]

Und warum nicht Frames?

[Darlo]

Zum Zeitpunkt der Entwicklung hatte Frames nicht den besten Ruf, geprüft hatte ich es selber nicht.

[nahpets]

Zitat:

Zitat von Darlo (Beitrag 1327040)

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

Wo liegt hier der Designfehler?
In Deiner Form, Formulare zu erstellen?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Unit2;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
    f : TForm2;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned(f) then begin
    f := TForm2.Create(Application);
    f.Name := 'Hugo';
  end;
  f.Show;
  // oder mach sonstwas mit dem Formular, ohne es anzuzeigen.
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Assigned(f) then f.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
          k : TComponent;
begin
  k := Application.FindComponent('Hugo');
  if Assigned(k) then begin
    if k is TForm2 then begin
      TForm2(k).Show;
// oder sonstwas, es muss nicht zwingend angezeigt werden, um damit zu arbeiten.
    end
  end;
end;

end.

Hiermit kann man ein Formular erstellen, soweit es noch nicht existiert.

Wenn es existiert, kann man es freigeben.

Man kann es über Application.FindComponent finden und damit arbeiten.

Was funktioniert nicht bzw. wo ist der Designfehler?

Uwes Vorschlag funktioniert, unabhängig davon, ob die Formulare angezeigt werden oder nicht.
Das Vorhandensein von Formularen hat nichts mit der Sichtbarkeit auf dem Bildschirm zu tuen.

Wie "holst" Du denn die Panels (oder was auch immer) auf "Dein" Formular? Änderst Du dann den Parent?

War passiert eigentlich dann mit diesen Teilen, wenn Du Dein Formular schließt?
Oder wenn eines der Formulare, von denen Du sie holst, freigegeben wird?

Die Verwendung von Frames dürfte da deutlich besser sein und auch wohl eher designkonform.

Designfehler liegen nicht vor, wenn man etwas nicht designkonform nutzt, man sollte hier die Form der Nutzung lieber designkonform gestalten.

Bei mir funktionieren Frames seit ca. 20 Jahren unter Delphi problemlos, wie alt ist denn das Design der von Dir gewarteten Software?

[himitsu]

Warum FindComponent, wenn man

Delphi-Quellcode:

f

hat?

Zitat:

Zitat von Du

Delphi-Quellcode:

if Assigned(f) then f.Free;

Schau mal was TObject.Free macht. :-D

Zitat:

Zitat von Delphi

Delphi-Quellcode:

procedure TObject.Free;
begin
  if Self <> nil then  // if Assigned(Self) then
    Destroy;
end;

[Sir Rufo]

Nur so am Rande bemerkt:

Mit ARC reicht ein simples

Delphi-Quellcode:

Free

oder

Delphi-Quellcode:

FreeAndNil

bei einer Komponente nicht mehr aus. Da muss man schon mit TObject.DisposeOf ran.

Um die Instanz-Variable für die Komponente auf

Delphi-Quellcode:

nil

zu setzen überschreibt man TComponent.Notification und reagiert dort auf

Delphi-Quellcode:

opRemove

.

Die Notification wird für alle Komponenten automatisch aufgerufen, wo man

Delphi-Quellcode:

Owner

oder

Delphi-Quellcode:

Parent

ist. Alle anderen Komponenten müssen mit TComponent.FreeNotification registrieren um auch diese Benachrichtigung zu erhalten.

[nahpets]

Zitat:

Zitat von himitsu (Beitrag 1327050)

Warum FindComponent, wenn man

Delphi-Quellcode:

f

hat?

Zitat:

Zitat von Du

Delphi-Quellcode:

if Assigned(f) then f.Free;

Schau mal was TObject.Free macht. :-D

Zitat:

Zitat von Delphi

Delphi-Quellcode:

procedure TObject.Free;
begin
  if Self <> nil then  // if Assigned(Self) then
    Destroy;
end;

FindComponent zum Ersten, um zu zeigen, dass es funktioniert und zum Zweiten, weil es eventuell dann hier

Delphi-Quellcode:

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

funktioniert, ohne zu wissen, wie die weitere Programmlogik des Threaderstellers aussieht.

Und ja, es heißt natürlich f.Destroy :oops: