Delphi之Virtual Treeview使用心得

Delphi之Virtual Treeview使用心得

1.定义节点的数据结构

2.GetNodeDataSize事件 FreeNode事件

3.GetText事件 根据Column来写多列

4.GetImageIndex事件 同上

5.PaintText事件 自定义TargetCanvas

6.GetPopupMenu事件 设定PopupMenu

7.OnSaveNode和Onloadnode 保存为文件，需要自己实现这二个事件

显示Header

1.双击VST

2.添加Column -> Text属性

3.Include( VST.Header.Option, hoVisible);

显示单选、复选框

Include(VST.TreeOptions.MiscOptions,toCheckSupport);

VST.CheckImageKind :=ckXP;

Node.CheckType :=ctCheckBox;//新加节点如果要显示复选框，一定要指定，默认值ctNone

Node.CheckState=csCheckedNormal;//是否选中状态

不显示TreeLine

TreeOption->PaintOptions->toShowTreeLines

添加节点

var

Node: PVirtualNode;

Data: PVSTNode;

Node := VST.AddChild(nil);

Data := VST.GetNodeData(Node);

更新显示

VST.InvalidateNode(Node);

当前选中的节点

VST.FocusedNode

遍历

var

Node:PVirtualNode;

Data:PNodeData;

begin

Node:= VST.GetFirst;

while Assigned(Node) do

begin

Data := VST.GetNodeData(Node);

...

Node := VST.GetNext(Node);

end;

节点没有子节点，但想显示节点前的展开＋符号

Include(Node.States,vsHasChildren);

三态复选框选中级连选择, Node.CheckType := ctTriStateCheckBox;

选中的三态:未选中csUncheckedNormal,选中csCheckedNormal,子节点选中父节点状态csMixedNormal

假如以对象而不是记录的方式来存放数据结构

1.初使化时 VST.NodeDataSize:=4;

2.添加节点 NewNode:= VST.AddChild(ParentNode,Data);

3.获取节点数据vst.GetNodeData(Node)^ //注意GetNodeData函数获取的其实是一个指针

4.释放数据 在OnFreeNode事件中把对象Free掉