treeview knoten erstellen

[DeddyH]

Wenn Du eine Delphi-Version <= 7 hast, kannst Du in der Hilfe schöne Beispiele finden. Zu Deinem Problem z.B. dies hier:

Zitat:

Im folgenden Beispiel wird gezeigt, wie in einem TTreeView-Steuerelement Knoten und untergeordnete Knoten eingefügt werden können.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  MyTreeNode1, MyTreeNode2: TTreeNode;
begin
  with TreeView1.Items do
  begin
    Clear; { vorhandene Knoten entfernen }
    MyTreeNode1 := Add(nil, 'RootTreeNode1'); { Hauptknoten hinzufügen }
    { Untergeordneter Knoten wurde gerade hinzugefügt }
    AddChild(MyTreeNode1,'ChildNode1');

    {Weiteren Hauptknoten hinzufügen}
    MyTreeNode2 := Add(MyTreeNode1, 'RootTreeNode2');
    {MyTreeNode2 an untergeordnetes Objekt übergeben }

    AddChild(MyTreeNode2,'ChildNode2');

    {Change MyTreeNode2 to ChildNode2 }
    { und untergeordneten Knoten hinzufügen}
    MyTreeNode2 := TreeView1.Items[3];
    AddChild(MyTreeNode2,'ChildNode2a');

    {Untergeordneten Knoten zu ChildNode2, nach ChildNode2a hinzufügen}
    Add(MyTreeNode2,'ChildNode2b');

    {Weiteren Hauptknoten hinzufügen}
    Add(MyTreeNode1, 'RootTreeNode3');
  end;
end;

Und der aktuell ausgewählte Knoten (sofern vorhanden) steht in Treeview.Selected (siehe anderer Thread)