Virtual TreeView使用示例

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

源码：

1. {*------------------------------------------------------------------------------
2. VirtualTreeView使用示例
4. @author屈剑峰email:qujianfeng@gmail.com
5. @version2008/10/161.0Initialrevision.
6. @todo
7. @comment
8. -------------------------------------------------------------------------------}
9. unitUnit4;
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. -------------------------------------------------------------------------------}
33. PMyRec=^TMyRec;
35. TForm4=class(TForm)
36. vsttree:TVirtualStringTree;
37. il1:TImageList;
38. advpmn1:TAdvPopupMenu;
39. N1:TMenuItem;
40. procedureFormCreate(Sender:TObject);
41. procedurevsttreeGetText(Sender:TBaseVirtualTree;Node:PVirtualNode;
42. Column:TColumnIndex;TextType:TVSTTextType;varCellText:WideString);
43. procedurevsttreeInitNode(Sender:TBaseVirtualTree;ParentNode,
44. Node:PVirtualNode;varInitialStates:TVirtualNodeInitStates);
45. procedurevsttreeGetImageIndex(Sender:TBaseVirtualTree;Node:PVirtualNode;
46. Kind:TVTImageKind;Column:TColumnIndex;varGhosted:Boolean;
47. varImageIndex:Integer);
48. procedureN1Click(Sender:TObject);
49. procedurevsttreeFreeNode(Sender:TBaseVirtualTree;Node:PVirtualNode);
50. procedurevsttreeGetPopupMenu(Sender:TBaseVirtualTree;Node:PVirtualNode;
51. Column:TColumnIndex;constP:TPoint;varAskParent:Boolean;
52. varPopupMenu:TPopupMenu);
53. private
54. {Privatedeclarations}
55. public
56. {Publicdeclarations}
57. end;
59. var
60. Form4:TForm4;
62. implementation
64. {$R*.dfm}
66. procedureTForm4.FormCreate(Sender:TObject);
67. var
68. RootNode,ChileNode:PVirtualNode;
69. Data:PMyRec;
70. begin
71. //指定结点数据大小
72. vsttree.NodeDataSize:=SizeOf(TMyRec);
73. //指定树里要用的图片列表
74. vsttree.Images:=il1;
76. //添加根节点
77. RootNode:=vsttree.AddChild(nil);
78. Data:=vsttree.GetNodeData(RootNode);
79. Data^.Text:='根结点';
80. Data^.Id:='RootID';
81. Data^.ImageIndex:=0;
82. Data^.CheckType:=ctTriStateCheckBox;
83. Data^.CheckState:=csUncheckedNormal;
86. //添加一个子结点
87. ChileNode:=vsttree.AddChild(RootNode);
88. Data:=vsttree.GetNodeData(ChileNode);
89. Data^.Text:='子结点1';
90. Data^.Id:='ChildId1';
91. Data^.ImageIndex:=1;
92. Data^.CheckType:=ctTriStateCheckBox;
93. Data^.CheckState:=csUncheckedNormal;
95. //再添加一个子结点
96. ChileNode:=vsttree.AddChild(RootNode);
97. Data:=vsttree.GetNodeData(ChileNode);
98. Data^.Text:='子结点2';
99. Data^.Id:='ChildId2';
100. Data^.ImageIndex:=1;
101. Data^.CheckType:=ctTriStateCheckBox;
102. Data^.CheckState:=csUncheckedNormal;
104. //默认展开一级结点，这句话要写在初始的最后
105. vsttree.Expanded[RootNode]:=True;
107. {
108. 注：在这里把数据添加进树后，树里并不能显示出结点
109. 要在几个事件里写代码才行：
110. OnInitNode:在这个事件里初始化结点，如指定复选框以及状态
111. OnGetText:在这个事件里指定结点的显示文本
112. OnGetPopupMenu:在这个事件里指定下拉菜单
113. OnGetImageIndex:指定结点的图片索引
114. OnFreeNode:释放结点时您要做的一些释放动作
116. 通过这些事件，才能把结点的显示情况描述清楚。而您的
117. 结构体是用来持有您每个结点的数据的。
118. }
119. end;
120. //弹出菜单的点击事件
121. procedureTForm4.N1Click(Sender:TObject);
122. var
123. CurrentNode:PVirtualNode;
124. Data:PMyRec;
125. Checked:string;
126. begin
127. {示例取点击结点的数据。
128. 注意：TreeOptions.SelectionOptions必须包含toRightClickSelect
129. }
130. //取得当前选中结点
131. CurrentNode:=vsttree.FocusedNode;
132. ifAssigned(CurrentNode)then
133. begin
134. Data:=vsttree.GetNodeData(CurrentNode);
135. ifCurrentNode.CheckState=csCheckedNormalthen
136. begin
137. Checked:='是';
138. end
139. else
140. begin
141. Checked:='否';
142. end;
143. ShowMessage('当前结点:'+#13
144. +'Id='+Data^.Id+#13
145. +'Text='+Data^.Text+#13
146. +'是否选中='+Checked);
147. end;
148. end;
150. procedureTForm4.vsttreeFreeNode(Sender:TBaseVirtualTree;Node:PVirtualNode);
151. var
152. Data:PMyRec;
153. begin
154. Data:=Sender.GetNodeData(Node);
155. Finalize(Data^);
156. end;
158. procedureTForm4.vsttreeGetImageIndex(Sender:TBaseVirtualTree;
159. Node:PVirtualNode;Kind:TVTImageKind;Column:TColumnIndex;
160. varGhosted:Boolean;varImageIndex:Integer);
161. var
162. Data:PMyRec;
163. begin
164. Data:=Sender.GetNodeData(Node);
165. ImageIndex:=Data^.ImageIndex;
166. end;
168. procedureTForm4.vsttreeGetPopupMenu(Sender:TBaseVirtualTree;
169. Node:PVirtualNode;Column:TColumnIndex;constP:TPoint;
170. varAskParent:Boolean;varPopupMenu:TPopupMenu);
171. begin
172. ifAssigned(Node)then
173. begin
174. PopupMenu:=advpmn1;
175. end
176. else
177. begin
178. PopupMenu:=nil;
179. end;
180. end;
182. procedureTForm4.vsttreeGetText(Sender:TBaseVirtualTree;Node:PVirtualNode;
183. Column:TColumnIndex;TextType:TVSTTextType;varCellText:WideString);
184. var
185. Data:PMyRec;
186. begin
187. Data:=Sender.GetNodeData(Node);
188. CellText:=Data^.Text;
189. end;
191. procedureTForm4.vsttreeInitNode(Sender:TBaseVirtualTree;ParentNode,
192. Node:PVirtualNode;varInitialStates:TVirtualNodeInitStates);
193. var
194. Data:PMyRec;
195. begin
196. Data:=Sender.GetNodeData(Node);
197. Node.CheckType:=Data^.CheckType;
198. Node.CheckState:=Data^.CheckState;
199. end;
201. end.