Virtual TreeView使用示例

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

源码：

{*------------------------------------------
1. VirtualTreeView使用示例
2. @author屈剑峰email:qujianfeng@gmail.com@version2008/10/161.0Initialrevision.
3. @todo@comment
4. -------------------------------------------} unitUnit4;
5. interface
6. uses
7. Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,VirtualTrees,ImgList,Menus,AdvMenus;
8. type
9. {*------------------------------------------ 首先，先自己定义一个结点所对应的数据结构。
10. 这一般是一个结构体，内容根据你的需要自己定义-------------------------------------------}
11. TMyRec=record Text:string;//结点显示的文本
12. ImageIndex:Integer;//结点显示的图片索引。注意：要在结点显示图片必须TreeOptions.MiscOptions包含toCheckSuppot Id:string;//数据Id，可以为数据库记录的Id
13. CheckType:TCheckType;//选择框类型 CheckState:TCheckState;//选择框状态
14. //...你还可以自己加 end;
15. {*------------------------------------------ 定义一个上面结构体的指针类型，后面要用到这个东东
16. -------------------------------------------} PMyRec=^TMyRec;
17. TForm4=class(TForm)
18. vsttree:TVirtualStringTree;il1:TImageList;
19. advpmn1:TAdvPopupMenu;N1:TMenuItem;
20. procedureFormCreate(Sender:TObject); procedurevsttreeGetText(Sender:TBaseVirtualTree;Node:PVirtualNode;
21. Column:TColumnIndex;TextType:TVSTTextType;varCellText:WideString); procedurevsttreeInitNode(Sender:TBaseVirtualTree;ParentNode,
22. Node:PVirtualNode;varInitialStates:TVirtualNodeInitStates); procedurevsttreeGetImageIndex(Sender:TBaseVirtualTree;Node:PVirtualNode;
23. Kind:TVTImageKind;Column:TColumnIndex;varGhosted:Boolean; varImageIndex:Integer);
24. procedureN1Click(Sender:TObject); procedurevsttreeFreeNode(Sender:TBaseVirtualTree;Node:PVirtualNode);
25. procedurevsttreeGetPopupMenu(Sender:TBaseVirtualTree;Node:PVirtualNode; Column:TColumnIndex;constP:TPoint;varAskParent:Boolean;
26. varPopupMenu:TPopupMenu); private
27. {Privatedeclarations} public
28. {Publicdeclarations} end;
29. var
30. Form4:TForm4;
31. implementation
32. {$R*.dfm}
33. procedureTForm4.FormCreate(Sender:TObject); var
34. RootNode,ChileNode:PVirtualNode;Data:PMyRec;
35. begin //指定结点数据大小
36. vsttree.NodeDataSize:=SizeOf(TMyRec); //指定树里要用的图片列表
37. vsttree.Images:=il1;
38. //添加根节点 RootNode:=vsttree.AddChild(nil);
39. Data:=vsttree.GetNodeData(RootNode); Data^.Text:='根结点';
40. Data^.Id:='RootID'; Data^.ImageIndex:=0;
41. Data^.CheckType:=ctTriStateCheckBox;Data^.CheckState:=csUncheckedNormal;
43. //添加一个子结点 ChileNode:=vsttree.AddChild(RootNode);
44. Data:=vsttree.GetNodeData(ChileNode); Data^.Text:='子结点1';
45. Data^.Id:='ChildId1'; Data^.ImageIndex:=1;
46. Data^.CheckType:=ctTriStateCheckBox;Data^.CheckState:=csUncheckedNormal;
47. //再添加一个子结点
48. ChileNode:=vsttree.AddChild(RootNode); Data:=vsttree.GetNodeData(ChileNode);
49. Data^.Text:='子结点2'; Data^.Id:='ChildId2';
50. Data^.ImageIndex:=1; Data^.CheckType:=ctTriStateCheckBox;
51. Data^.CheckState:=csUncheckedNormal;
52. //默认展开一级结点，这句话要写在初始的最后 vsttree.Expanded[RootNode]:=True;
53. {
54. 注：在这里把数据添加进树后，树里并不能显示出结点要在几个事件里写代码才行：
55. OnInitNode:在这个事件里初始化结点，如指定复选框以及状态OnGetText:在这个事件里指定结点的显示文本
56. OnGetPopupMenu:在这个事件里指定下拉菜单OnGetImageIndex:指定结点的图片索引
57. OnFreeNode:释放结点时您要做的一些释放动作
58. 通过这些事件，才能把结点的显示情况描述清楚。而您的结构体是用来持有您每个结点的数据的。
59. } end;
60. //弹出菜单的点击事件 procedureTForm4.N1Click(Sender:TObject);
61. var CurrentNode:PVirtualNode;
62. Data:PMyRec;Checked:string;
63. begin {示例取点击结点的数据。
64. 注意：TreeOptions.SelectionOptions必须包含toRightClickSelect}
65. //取得当前选中结点 CurrentNode:=vsttree.FocusedNode;
66. ifAssigned(CurrentNode)then begin
67. Data:=vsttree.GetNodeData(CurrentNode); ifCurrentNode.CheckState=csCheckedNormalthen
68. begin Checked:='是';
69. end else
70. begin Checked:='否';
71. end; ShowMessage('当前结点:'+#13
72. +'Id='+Data^.Id+#13 +'Text='+Data^.Text+#13
73. +'是否选中='+Checked); end;
74. end;
75. procedureTForm4.vsttreeFreeNode(Sender:TBaseVirtualTree;Node:PVirtualNode); var
76. Data:PMyRec;begin
77. Data:=Sender.GetNodeData(Node); Finalize(Data^);
78. end;
79. procedureTForm4.vsttreeGetImageIndex(Sender:TBaseVirtualTree; Node:PVirtualNode;Kind:TVTImageKind;Column:TColumnIndex;
80. varGhosted:Boolean;varImageIndex:Integer); var
81. Data:PMyRec;begin
82. Data:=Sender.GetNodeData(Node); ImageIndex:=Data^.ImageIndex;
83. end;
84. procedureTForm4.vsttreeGetPopupMenu(Sender:TBaseVirtualTree; Node:PVirtualNode;Column:TColumnIndex;constP:TPoint;
85. varAskParent:Boolean;varPopupMenu:TPopupMenu); begin
86. ifAssigned(Node)then begin
87. PopupMenu:=advpmn1;end
88. else begin
89. PopupMenu:=nil; end;
90. end;
91. procedureTForm4.vsttreeGetText(Sender:TBaseVirtualTree;Node:PVirtualNode; Column:TColumnIndex;TextType:TVSTTextType;varCellText:WideString);
92. var Data:PMyRec;
93. begin Data:=Sender.GetNodeData(Node);
94. CellText:=Data^.Text;end;
95. procedureTForm4.vsttreeInitNode(Sender:TBaseVirtualTree;ParentNode,
96. Node:PVirtualNode;varInitialStates:TVirtualNodeInitStates); var
97. Data:PMyRec;begin
98. Data:=Sender.GetNodeData(Node); Node.CheckType:=Data^.CheckType;
99. Node.CheckState:=Data^.CheckState; end;
100. end.

1 楼 Ti9eR 2012-06-16 根节点左侧不显示CheckBox,需要如何设置呢?