Virtual TreeView使用示例

Virtual TreeView是一个功能强大的delphi树型组件，从它带的例子就能看出来。下面我把我做的如下图所示的树型的代码贴出来，供大家参考：

     源码：

1. {*------------------------------------------------------------------------------
2.   Virtual TreeView使用示例
4.   @author  屈剑峰  email: qujianfeng@gmail.com
5.   @version 2008/10/16 1.0 Initial revision.
6.   @todo
7.   @comment
8. -------------------------------------------------------------------------------}          
9. unit Unit4;
11. interface
13. uses
14.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
15.   Dialogs, VirtualTrees, ImgList, Menus, AdvMenus;
17. type
18.   {*------------------------------------------------------------------------------
19.     首先，先自己定义一个结点所对应的数据结构。
20.     这一般是一个结构体，内容根据你的需要自己定义
21.   -------------------------------------------------------------------------------}  
22.   TMyRec=record
23.     Text:string;//结点显示的文本 
24.     ImageIndex:Integer;//结点显示的图片索引。注意：要在结点显示图片必须TreeOptions.MiscOptions包含toCheckSuppot 
25.     Id:string;//数据Id，可以为数据库记录的Id 
26.     CheckType:TCheckType; //选择框类型 
27.     CheckState:TCheckState;//选择框状态 
28.     //...你还可以自己加 
29.   end;
30.   {*------------------------------------------------------------------------------
31.     定义一个上面结构体的指针类型，后面要用到这个东东
32.   ----------------------------------