01

03年的

关于虚拟树视图

任何类似于组件的树状视图的目的都是显示项目的层次列表。您每天使用和看到的最常见的工具是Windows资源管理器中用于在文件系统上显示文件夹（及更多）的工具。

Delphi附带了位于工具选项板“Win32”部分的TTreeView控件。在ComCtrls单元中定义，TTreeView完成了一项相当不错的任务，允许您显示任何类型对象的任何父子关系。

TTreeView中的每个节点都由一个标签和一个可选的位图图像组成，TTreeNode对象描述TTreeView控件中的单个节点。

如果您的应用程序基于显示分层数据（如文件夹和文件、XML结构等）来执行大多数任务，那么它的功能就足够强大，但您很快就会意识到，您需要类似树状视图的组件提供更多功能。

这就是第三方组件世界中的一颗宝石：虚拟TreeView组件。

虚拟树视图

虚拟TreeView最初由Mike Lischke开发，现在作为Google代码上的开源项目进行维护，如果你能使用任何你可以称之为“节点”的东西，它是一个必须使用的控件。

经过13年的开发，VirtualTreeView是Delphi市场上最完善、最灵活、最先进的开源组件之一。

从Delphi 7到最新版本（目前为XE3），您将能够在应用程序中使用和利用TVirtualStringTree和TVirtualDrawTree（控件的实际名称）的强大功能。

以下是虚拟TreeView控件的几个“为什么要使用”功能：

• 非常小的内存足迹。
• 超快。
• 虚拟意味着它不知道它管理的数据的大小。一切都是通过事件来完成的。
• 支持多列视图
• 使用位图和字体样式轻松自定义节点显示。
• 拖放和剪贴板支持
• 树中的每个节点都可以有自己的检查类型（甚至混合三态部分检查）。
• 复杂的树内容序列化。
• 使用应用程序定义的编辑器编辑树数据。

通过这篇文章，我将开始一个关于如何使用TVirtualStringTree控件的系列文章。

首先，让我们看看如何在Delphi的IDE中安装虚拟树视图。

02

03年的

如何安装虚拟树视图

首先，下载主要的虚拟TreeView包（在“下载”下）。

您将下载一个ZIP文件，其中包含源代码、在Delphi中安装组件的软件包、一些演示和其他内容。

将归档文件的内容解压缩到某个文件夹中，在该文件夹中有其他第三方组件。我使用的是“C:\Users\Public\Documents\Delphi3rd\”，对我来说，位置是“C:\Users\Public\Documents\Delphi3rd\VirtualTreeviewV5.1.0”

下面介绍如何在Delphi XE3/RAD Studio XE3中安装虚拟树视图

1. 打开项目组“Packages\RAD Studio XE2\RAD Studio XE3.groupproj”。
2. 右键单击“VirtualTreesD16.bpl”，然后单击“安装”。
3. 转到“工具>选项>环境选项>Delphi选项>库>库路径>[…]”。浏览到虚拟树视图的“源”文件夹，按“确定”、“添加”、“确定”、“确定”
4. 保存项目。文件-全部关闭。

安装后，您将在工具选项板的“虚拟控件”部分找到三个组件：

• TVirtualStringTree—您将使用的主控件—自行管理节点标题。
• TVirtualDrawTree-允许应用程序在树窗口中绘制自己的内容。
• TVTHeaderPopupMenu-提供了一种方便的方法来实现用于切换列可见性的标题弹出窗口。

03

03年的

虚拟树视图“hello world”示例

在Delphi/radstudioide中安装虚拟TreeView包后，让我们从下载的包中运行示例项目，看看是否一切正常。

加载位于“\Demos\Minimal\”下的项目，项目名称为“Minimal.dpr”。

跑

查看将数百（甚至数千）个节点作为子节点添加到选定节点的速度。最后，这里是这个“hello world”示例的（重要实现）源代码：

implementation类型pmyrec=^tmyrec；tmyrec=记录描述：widestring；终止程序TMAInformCreate（发送方：ToObject）；开始vst.nodedatasize:=sizeof（tmyrec）；vst.rootnodecount:=20；终止程序tmainform.clearbuttonclick（发送方：ToObject）；变量开始：红衣主教；开始screen.cursor:=crhourglass；尝试开始：=gettickcount；vst.clear；label1.caption:=格式（'last operation duration:%d ms'，[gettickcount-start]）；最后screen.cursor:=crdefault；终止终止程序tmainform.addbuttonclick（发送方：ToObject）；变量伯爵：红衣主教；开始：红衣主教；开始screen.cursor:=crhourglass；使用vst dotry开始：=gettickcount；外壳（发送器为tbutton）。标签0://添加到rootbegin计数：=stroint（edit1.text）；rootnodecount:=rootnodecount+count；终止1://addaschildif赋值（focusednode），然后开始计数：=stroint（edit1.text）；childcount[focusednode]：=childcount[focusednode]+计数；扩展的[focusednode]：=true；失效底部（聚焦节点）；终止终止label1.caption:=格式（'last operation duration:%d ms'，[gettickcount-start]）；最后screen.cursor:=crdefault；终止终止过程tmaninform.vstfreenode（发送方：tbasevirtualtree；节点：pvirtualnode）；变量资料来源：pmyrec；开始数据：=sender.getnodedata（节点）；最后确定（数据^）；终止过程tmaninform.vstgettext（发送方：tbasevirtualtree；节点：pvirtualnode；列：tcolumnindex；texttype:tvsttexttype；var celltext:string）；变量资料来源：pmyrec；开始数据：=sender.getnodedata（节点）；如果分配（数据），则celltext:=data.caption；终止过程tmaninform.vstinitnode（发送方：tbasevirtualtree；父节点，节点：pvirtualnode；变量初始状态：tvirtualnodeinitstates）；变量资料来源：pmyrec；从发送者开始多贝金数据：=getnodedata（节点）；data.caption:=格式（'level%d，index%d'，[getnodelevel（node），node.index]）；终止终止