delphi控件-VirtualStringTreeView使用-转

相关文章推荐

机灵的烤地瓜 · NPM package Include ...· 1 月前 ·

悲伤的汉堡包 · China ...· 2 年前 ·

重感情的熊猫 · 用Perl脚本搜索目录中的字符串并打印· 2 年前 ·

仗义的竹笋 · Pandas-01之DataFrame&Se ...· 2 年前 ·

温文尔雅的蛋挞 · error=13 on running ...· 2 年前 ·

_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]);