delphi控件-VirtualStringTreeView使用-转

link之家

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

帅气的匕首 · 封神七大凡人高手，邓九公垫底，黄天祥仅排第三 ...· 11 月前 ·

忐忑的牛排 · 乡村学校里的一群教师“妈妈”· 1 年前 ·

微笑的伤痕 · 圣紫罗兰的永恒花园剧场版_头条· 1 年前 ·

知识渊博的单车 · 李海仁和胖子卡在巷子youtube - 抖音· 1 年前 ·

英俊的羊肉串 · 王的初拥_百度百科· 1 年前 ·

_pNodeData := VST.GetNodeData(PVN);

if Assigned(_pNodeData) then

ShowMessage(_pNodeData.Name);

PVN := VST.GetNextSibling(PVN);

*遍历所有节点：

Delphi代码

VST.IterateSubtree(nil,VSTIterateProc,nil,[]);

procedure TForm1.VSTIterateProc(Sender: TBaseVirtualTree;

Node: PVirtualNode; Data: Pointer; var Abort: Boolean);

_pNodeData:PTagCustomListItem;

begin

_pNodeData := Sender.GetNodeData(Node);

if Assigned(_pNodeData) then

ShowMessage(_pNodeData.Name);

*增加根节点：

Delphi代码

_count := VST.RootNodeCount ;

VST.RootNodeCount := _count + 1;

*增加子节点：

Delphi代码

_count: Cardinal;

begin

// add as child

_count := VST.ChildCount[VST.FocusedNode];

VST.ChildCount[VST.FocusedNode] := _count + 1 ;

VST.Expanded[VST.FocusedNode] := True;

VST.InvalidateToBottom(VST.FocusedNode);

*另一种添加节点方法:

Delphi代码

procedure TForm1.FormCreate(Sender: TObject);

Data:PTagCustomListItem;

RootNode:PVirtualNode;

begin

//清除所有Node

VirtualStringTree1.Clear;

//指定VitrualStringTree有幾個Node

//VirtualStringTree1.RootNodeCount := 2;

//將所定義的結構大小指定給VitualStringTree

VirtualStringTree1.NodeDataSize := SizeOf(TTagCustomListItem);

//添加节点

RootNode:= VirtualStringTree1.AddChild(nil);

Data:=VirtualStringTree1.GetNodeData(RootNode);

Data^.Name:= '根结点';

RootNode:= VirtualStringTree1.AddChild(nil);

Data:=VirtualStringTree1.GetNodeData(RootNode);

Data^.Name:= '根结点aaa';

*必须的回调函数：

Delphi代码

procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;

Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);

_pNodeData:PTagCustomListItem;

begin

_pNodeData := Sender.GetNodeData(Node);

if Assigned(_pNodeData) then

CellText := _pNodeData.Name;

procedure TForm1.VSTInitNode(Sender: TBaseVirtualTree; ParentNode,

Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);

_pNodeData:PTagCustomListItem;

begin

_pNodeData := Sender.GetNodeData(Node);

if Assigned(_pNodeData) then

_pNodeData.Name := Format( 'Node Level:%d, Index:%d ',[Sender.GetNodeLevel(Node),Node.Index]);