TTreeNode编程思路

导读：

　　 TTreeNode编程思路

　　　

　　（本问以TreeView为例子讲述，其他的用到TTreeNodes的控件的编程思想如出一辙）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 中指向的内存空间。

　　八、更改checktree节点状态

　　状态命令为一个集合：TRzCheckState=( csUnknown,csUnchecked,csChecked,csPartiallyChecked);若想将某个节点的状态更改成选中可：stateitme[i]:=cschecked;其他状态类似。

　　九、锁定checktree各个节点的选择操作

　　void __fastcall TForm1::RzCheckTree1Changing(TObject *Sender,

　　TTreeNode *Node, bool &AllowChange)

　　{

　　AllowChange = false;

　　}

　　



本文转自

http://hi.baidu.com/badbest/blog/item/896257cd5105c9550eb3454d.html