Virtual TreeView是一个功能强大的delphi树型组件,从它带的例子就能看出来。下面我把我做的如下图所示的树型的代码贴出来,供大家参考:
源码:
- {*------------------------------------------------------------------------------
- Virtual TreeView使用示例
- @author 屈剑峰 email: qujianfeng@gmail.com
- @version 2008/10/16 1.0 Initial revision.
- @todo
- @comment
- -------------------------------------------------------------------------------}
- unit Unit4;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, VirtualTrees, ImgList, Menus, AdvMenus;
- type
- {*------------------------------------------------------------------------------
- 首先,先自己定义一个结点所对应的数据结构。
- 这一般是一个结构体,内容根据你的需要自己定义
- -------------------------------------------------------------------------------}
- TMyRec=record
- Text:string;//结点显示的文本
- ImageIndex:Integer;//结点显示的图片索引。注意:要在结点显示图片必须TreeOptions.MiscOptions包含toCheckSuppot
- Id:string;//数据Id,可以为数据库记录的Id
- CheckType:TCheckType; //选择框类型
- CheckState:TCheckState;//选择框状态
- //...你还可以自己加
- end;
- {*------------------------------------------------------------------------------
- 定义一个上面结构体的指针类型,后面要用到这个东东
- ----------------------------------