treeview knoten erstellen

[phoenix_ft]

hi also ich nutze delphi
und habe einen treeview an diesen sollen an selektierten stellen neue unterkonten oder knoten überhaupt entstehen,
nun schaffe ich es an von "mir" im quelltext ausgewählten stellen einen knoten zu erstellen,
möchte doch aber, dass immer an den markierten/selektierten stellen ein knoten entsteht
meine kreation :roll:

Delphi-Quellcode:

procedure TForm1.N1Click(Sender: TObject);
begin
baum.items.add(baum.items[1], 'neue node');
end;
procedure TForm1.N1Click(Sender: TObject);
begin
baum.items.add(baum.items[0], 'neue node');
end;

wäre nett wenn ihr mir einen hinweise in die richtige richtung geben könnte,
bin doch noch ein anfänger :gruebel: danke

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

[phoenix_ft]

hi danke, dass es auch diesmal so schnell ging
habe codegear 2007 das problem ist das finden und umsetzen der infos

aber zu meinem problem
es ist so, dass ich vorhandene knoten habe, die sollen bleiben
aber ich habe eine treeview
hauptknoten z.b auto
-unterknoten z.b audi
-unterknoten z.b renault

so und nun markiere ich auto und sage erstelle einen neuen unterknoten
zb. - unterknoten peugot

vielleicht habe ich deins auch nur falsch verstanden und es beschreibt genau das, aber :gruebel:
bin mir nicht sicher

[DeddyH]

Delphi-Quellcode:

var Node: TTreeNode;
begin
  //Ermitteln des aktuell gewählten Knotens
  Node := Treeview.Selected;
  //wenn überhaupt einer gewählt ist
  if Assigned(Node) then
    //einen Unterknoten hinzufügen
    Treeview.Items.AddChild(Node,'Neuer Knoten');

[phoenix_ft]

danke :thumb:

Delphi-Quellcode:

var Node: TTreeNode; 
begin 
    Node := Treeview.Selected; 
    if Assigned(Node) then 
        Treeview.Items.AddChild(Node,'Neuer Knoten');

auf dem weg war ich :idea: , aber wohl eher auf dem abweg :?:
nochmals danke