您的位置: 首页  >  文章  >  Virtual TreeView使用示例

Virtual TreeView使用示例

分类: 文章 • 2024-09-22 13:27:34

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

Virtual TreeView使用示例

源码：

  1. {*------------------------------------------------------------------------------
  2. VirtualTreeView使用示例
  4. @author屈剑峰email:[email protected]
  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.

相关推荐