求VirtualStringTree使用实例

keeley20 2010-10-12 03:28:17

求VirtualStringTree使用实例一个，各位大牛帮帮忙
我看到国外一个软件，效果如下图：

这个“default”分组是我想实现的功能，delphi功力还不够，
官方的demo写的好复杂
希望大牛们能帮忙实现添加删除根节点添加删除子节点
我自己只能仿照网上的代码把他当成listview使用

本人等级比较低分数上限只有100分，希望各位能帮帮忙

...全文

370 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

keeley20 2010-10-13

打赏
举报

谢谢ZyxIp，kye_jufei大牛热心帮助，也谢谢ecjtu5208，sz_haitao
问题基本上解决了，

这控件感觉非常强大，决定再深入的学习下

haitao 2010-10-13

打赏
举报

它为了实现高速的加载，机制是有点特别
好像是通过getdata事件来实现取节点信息来显示的

ZyxIp 2010-10-13

打赏
举报

这个控件完全可以替换系统的LISTVIEW，TREEVIEW 。速度很好，可控性也非常好。图标，排序，编辑功能的支持
也非常好。

ZyxIp 2010-10-12

打赏
举报

你在 OnGetText 中处理就可以了。遇到根节点时CellText='';

不知道你明白了没。不明白的话将你QQ号给我发个消息。我来加你。

kye_jufei 2010-10-12

打赏
举报

本站也有一個demo: http://download.csdn.net/source/1547569

kye_jufei 2010-10-12

打赏
举报

參考一下。。。

unit Unit1;



interface



uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, VirtualTrees;



type

TForm1 = class(TForm)

    VirtualStringTree1: TVirtualStringTree;

    procedure VirtualStringTree1GetText(Sender: TBaseVirtualTree;

      Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;

      var CellText: WideString);

    procedure FormCreate(Sender: TObject);

private

    { Private declarations }

public

    { Public declarations }

end;



var

Form1: TForm1;



//定义VirtualStringTree结构

type

PVSTNodeData = ^TVSTNode;

TVSTNode = record

     Name: string;

     //可以继续扩展

end;





implementation



{$R *.dfm}





procedure TForm1.VirtualStringTree1GetText(Sender: TBaseVirtualTree;

Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;

var CellText: WideString);

var

VSTNode: PVSTNodeData;

begin

   //將Node资料读出

   VSTNode := Sender.GetNodeData(Node);

   //设定Cell的值

   CellText := VSTNode.Name;

end;





procedure TForm1.FormCreate(Sender: TObject);

var

Data:PVSTNodeData;

RootNode:PVirtualNode;

begin

//清除所有Node

VirtualStringTree1.Clear;

//指定VitrualStringTree有幾個Node

//VirtualStringTree1.RootNodeCount := 2;

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

VirtualStringTree1.NodeDataSize := SizeOf(TVSTNode);



//添加节点

RootNode:= VirtualStringTree1.AddChild(nil);

Data:=VirtualStringTree1.GetNodeData(RootNode);

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



RootNode:= VirtualStringTree1.AddChild(nil);

Data:=VirtualStringTree1.GetNodeData(RootNode);

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



end;





end.