TreeView使用笔记
2024-07-21 02:29:53
供稿：网友
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)^.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 中指向的内存空间。本文来源于网页设计爱好者web开发社区http://www.html.org.cn收集整理，欢迎访问。
