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

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

[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 von Darlo:

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

Zitat von Du:

if Assigned(f) then f.Free;

Schau mal was TObject.Free macht.

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 Free oder FreeAndNil bei einer Komponente nicht mehr aus. Da muss man schon mit TObject.DisposeOf ran.

Um die Instanz-Variable für die Komponente auf nil zu setzen überschreibt man TComponent.Notification und reagiert dort auf opRemove .

Die Notification wird für alle Komponenten automatisch aufgerufen, wo man Owner oder Parent ist. Alle anderen Komponenten müssen mit TComponent.FreeNotification registrieren um auch diese Benachrichtigung zu erhalten.

[nahpets]

Zitat von himitsu:

Warum FindComponent, wenn man f hat?

Zitat von Du:

if Assigned(f) then f.Free;

Schau mal was TObject.Free macht.

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