TreeView如何在程序运行中添加类容，比如父节点，子节点，删除节点等？

Question

请问大侠：
TreeView如何在程序运行中添加类容，比如父节点，子节点，删除节点等？谢谢

Answer 1

添加节点
RzTreeView1.Items.AddChildObject()
删除节点
RzTreeView1.Items.Delete(）

Answer 2

.ITEMS.ADD
.ITEMS.ADDFIRST
.ITEMS.ADDCHILDFIRST
.ITEMS.ADDCHILD
.ITEMS.ADDCHILDOBJECT
.ITEMS.ADDOBJECTFIRST
.ITEMS.ADDOBJECT
.ITEMS.ADDCHILDOBJECTFIRST
.ITEMS.ADDNODE
.ITEMS.INSERT
.ITEMS.INSERTOBJECT
.ITEMS.INSERTNODE.ITEMS.DELETE

Answer 3

treeview 的介绍很少，有没有全面一点的？

Answer 4

添加
    with treeView1.Items do
    begin
      node := addchild(nil,'dd');
    end;
    删除
    treeView1.Selected.Delete
    或treeView1.Items[1].Delete;
    

Answer 5

TreeView使用笔记
TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。
一、针对TTreeNodes,也就是 TreeView.Items,有这些属性：1、count，节点个数。2、item[index]  ,通过index得到节点。
二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作有：AddFirst添加第一个根节点。由此函数添加的节点总排在前面，除非后来又使用此函数添加了一个节点，则后添加的节点将排在前面。该函数返回新添加的节点。AddChildFirst添加第一个子节点，要求有父节点作为其参数。返回新添加的节点。AddChild添加一个子节点，要求有父节点作为其参数。返回新添加的节点。Add添加一个兄弟节点，要求有兄弟节点作为其参数。返回新添加的节点。
三、针对TTreeNodes,也就是 TreeView.Items,常用的得到节点的操作有：GetFirstNode() 得到根节点。然后配合TTreeNode.GetNext(),就可以访问所有的节点。
四、建树举例：
var  root_node,cur_node:TTreeNode;begin  root_node:=AddFirst(nil,'根节点1');  cur_node:=addChildfirst(root_node,nil,'根节点1_child1');  add(cur_node,'根节点1_child2');  root_node:=Add(nil,'根节点2');  AddChildFirst(root_node,''根节点2_child1');end;五、事件触发：当从一个节点跳到另一个节点，会触发TTreeView.OnChange事件。该事件中，将传递node,即当前被选中的节点。
当修改一个节点的text时，会触发TTreeView.onEdit事件。六、将节点和节点所对应的数据联系起来对于每个TTreeNode,有个Data属性，可以存放一个指针。我们可以利用这个域来存放与节点对应的自己的数据。1.我们先定义一个数据结构，作为记录我们要记录的数据。如：type  PMyData=^TMyData;  TMyData=Record    sFName:string;    sLName:String;    nIndex:integer;  end;
2.然后，创建数时，将节点和节点数据联系起来：procedure TForm1.Button1Click(Sender: TObject);var  myshuju: PMyData  cur_node:TTreeNode;begin  New(MyRecPtr);  //记住，一定要先分配内存。有几个节点，就要分配几次内存。  myshuju^.FName:=Edit1.Text;  Myshuju^.LName := Edit2.Text;  TreeViewIndex := StrToInt(Edit3.Text);  with TreeView1 do  begin    cur_node:=items.AddFirst(nil,'first');    cur_node.data:=myshuju;  end;end;
3.当我们选中一个节点时，就可以使用我们的数据了。procedure  TForm1.TreeView1Change(Sender:TObject;Node:TTreeNode);begin   if node.data<>nil then    self.label1.caption:=pmyData(node.data)^.Fname+pmyData(node.data)^.Lnameend;七、一般使用流程：1、添加全局变量：   b_first:boolean;  //记录是否是第一次访问节点，因为此时数据还未准备好，而一旦访问节点就会触发OnChange事件，在此事件处理函数中也许会出错。2、在FormCreate中，  a、设置b_first:=true;  b. 创建数并将节点与数据联系。3、在FormShow中  设置b_first:=false;4.在事件OnChange中处理节点被选中事件。5.在Edit中处理节点被修改Text事件。  并调用OnChange.6.在 TreeView.Destory中  释放Data 中指向的内存空间。