delphi控件-VirtualStringTreeView使用-转

相关文章推荐

个性的饼干 · 学英烈、守初心、践使命——祭奠萧劲光大将-中 ...· 22 小时前 ·

聪明的红酒 · Tuition and Fees ...· 6 月前 ·

神勇威武的茶壶 · 全球光模块TOP10最新榜单出炉：旭创首次登 ...· 7 月前 ·

文质彬彬的创口贴 · 就业推荐表复印件加盖学校公章在公务员面试审核 ...· 1 年前 ·

重感情的苦瓜 · 级联查询和联合查询的区别-CSDN博客· 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]);