delphi treeview控件(VirtualTreeView)4.8.7 安装包(附使用详解)

TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。通过它能够方便地管理和显示具有层次结构的信息，是Windows应用程序的基本控件之一。DELPHI虽然具有比较强大的文件管理功能，提供了多个用于文件管理的标准控件，如DriveComboBox、DirectoryListBox、FileListBox等，通过设置它们的属性，使其建立起联系，甚至不用编写一行程序，我们就可以实现在不同的目录之间进行切换，然而这样的目录切换只适用于进行文件的查找定位，而不能方便地进行目录的浏览，例如我们要从c:\windows目录转到c:\program files目录，就必须返回到根目录才能进行切换，而不能象Windows资源管理器那样任意地在不同的目录之间进行浏览与切换。

Delphi TreeView怎么用

Delphi TreeView使用方法

一、针对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(myshuju);  //记住，一定要先分配内存。有几个节点，就要分配几次内存。

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;

4.内存释放

procedure TForm1.ListView1Deletion(Sender: TObject; Item: TListItem);

begin

Dispose(Item.Data);

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 中指向的内存空间。