TreeView使用笔记
点击次数：24 次 发布日期：2008-11-26 14:42:45 作者：源代码网
|
源代码网推荐 源代码网推荐 源代码网推荐 一、针对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)^.Lname 源代码网推荐 end; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 七、一般使用流程： 源代码网推荐 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 中指向的内存空间。 源代码网推荐 源代码网推荐 源代码网推荐 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
