Aufruf von Formularen über den Namen

[JohannesK]

Ich möchte per Doppelclick aus einem Treeview-Element über die absolute Adresse einen Formularnamen aus einem Array auslesen. Mein Problem

wie komme ich von diesen Angaben

N := (treeview1.Selected.AbsoluteIndex);
ItemName := MyRecArr[N].PName; // Pname ist der Formularname

zu einer vernünftigen Prozedur für das öffnen des entsprechenden Formulars mit dem Namen Pname ?

Dankbar für jeden Hinweis.

[Blizzard]

warum schreibst du das formular ned einfach in das object der ttreeview node?

was ich meine:

Delphi-Quellcode:

 treeview.Items.AddChildObject(nil,'form1',@form1);

var
 form:tform;
begin  
 form:=tform(treeview.selected.data);
 form.show;
end;

der erste teil fügt eine neue node in den treeview ein der zweite teil zeigt die form die in der ausgewählten node "gespeichert" ist an.

ansonsten wenn de bei deiner methode bleiben willst müssteste die form über

Delphi-Quellcode:

var
 form:tform;
begin
 form:=application.findcomponent(itemname);
 form.show;
end;

finden können.

mfg
blizzard

[Christian Seehase]

Moin Johannes,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Da die Formulare Komponenten des Application Objektes sind, könntest Du es so machen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  frmWork : TForm;

begin
  frmWork := Application.FindComponent(MyRecArr[N].PName) as TForm;
  if frmWork <> nil then frmWork.Show;
end;

Wieso jetzt der Index in der Formularliste mit dem AbsoluteIndex eines Nodes korrespondiert weiss ich nicht, allerdings wäre es flexibler den Index der Formularliste in der Eigenschaft Data zu speichern.

[EDIT]

Schon wieder zu spät

[/EDIT]

[JohannesK]

Herzlichen Dank für die beiden Möglichkeiten, ich werde es gerade ausprobieren !