MDI Fenster mit caFree - prüfen ob Fenster existiert

[moelski]

Moin !

Hmm so ganz hab ichs noch nicht ...
Ich beschreibe mal mein Konstrukt ...

Ich habe einen Tree und die Nodes nutzen die .DATA Eigenschaft. Dazu habe ich diese Klasse definiert:

Delphi-Quellcode:

type
  TNodeInfo = class
     NodeTyp         : TLVObjectTyp;
     XMLNode         : String;
     MDIChild        : TForm;
     MDIChildVisible : Boolean;
  end;

So erzeuge ich einen Node:

Delphi-Quellcode:

  Node := tv.Items.Add(  nil,  'DEVICE Node ' + IntToStr(TV.Items.Count)  );

  with Node do begin
    {Select the root node}
    Selected      := true;
    ImageIndex    := 0;
    SelectedIndex := 0;
    Data          := TNodeInfo.Create;     {Create the data class}
    TNodeInfo(Data).NodeTyp := ID_Device;
  end;

Und nach dem Erzeugen des Nodes erzeuge ich ein MDIChild.
Das MDIChild Fenster merke ich mir dann in TNodeInfo(MDIChild).

Auf das Child kann ich dann so zugreifen wenn ich den Node habe:
TNodeInfo(Node.Data).MDIChild Aber wie tu ich nun mit dem Self.owner?