计算机二级辅导:TreeView使用笔记计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:35:32
来源 100Test.Com百考试题网

　　TreeView使用笔记
　　TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。
　　一、针对TTreeNodes,也就是 TreeView.Items,有这些属性：
　　1、count，节点个数。
　　2、item[index] ,通过index得到节点。
　　二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作有：
　　AddFirst添加第一个根节点。由此函数添加的节点总排在前面，除非后来又使用此函数添加了一个节点，则后添加的节点将排在前面。该函数返回新添加的节点。
　　AddChildFirst添加第一个子节点，要求有父节点作为其参数。返回新添加的节点。百考试题－全国最大教育类网站(100test.com)
　　AddChild添加一个子节点，要求有父节点作为其参数。返回新添加的节点。来源：www.examda.com
　　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