treeview中如何给当前选中的节点增加一个子结点?

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);var
      MyTreeNode1, MyTreeNode2: TTreeNode;
    begin
      with TreeView1.Items do
      begin
        Clear; { remove any existing nodes }
        MyTreeNode1 := Add(nil, 'RootTreeNode1'); { Add a root node }
        { Add a child node to the node just added }
        AddChild(MyTreeNode1,'ChildNode1');    {Add another root node}
        MyTreeNode2 := Add(MyTreeNode1, 'RootTreeNode2');
        {Give MyTreeNode2 to a child }
        AddChild(MyTreeNode2,'ChildNode2');    {Change MyTreeNode2 to ChildNode2 }
        { and add a child node to it}
        MyTreeNode2 := TreeView1.Items[3];
        AddChild(MyTreeNode2,'ChildNode2a');    {Add another child to ChildNode2, after ChildNode2a }
        Add(MyTreeNode2,'ChildNode2b');    {add another root node}
        Add(MyTreeNode1, 'RootTreeNode3');
      end;end;treeview的selected属性可以获得当前选种的接点
      

  2.   

    问题简单。应该学会看帮助。tv.items.addchild(tv.selected,'NewNode');