Treeview使用详解

TreeView由节点构成,建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象,这是一个TTreeNode集。

一、针对TTreeNodes,也就是 TreeView.Items,有这些属性:

1、count,节点个数。

2、item[index] ,通过index得到节点。

二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作有: AddFirst添加第一个根节点。由此函数添加的节点总排在前面,除非后来又使用此函数添加了一个节点,则后添加的节点将排在前面。该函数返回新添加的节点。AddChildFirst添加第一个子节点,要求有父节点作为其参数。返回新添加的节点。AddChild添加一个子节点,要求有父节点作为其参数。返回新添加的节点。

Add添加一个兄弟节点,要求有兄弟节点作为其参数。返回新添加的节点。

三、针对TTreeNodes,也就是 TreeView.Items,常用的得到节点的操作有: GetFirstNode() 得到根节点。

然后配合TTreeNode.GetNext(),就可以访问所有的节点。

四、建树举例:

var

root_node,cur_node:TTreeNode;

begin

root_node:=AddFirst(nil,'根节点1');

cur_node:=addChildfirst(root_node,nil,'根节点1_child1');

add(cur_node,'根节点1_child2');

root_node:=Add(nil,'根节点2');

AddChildFirst(root_node,''根节点2_child1');

end;

五、事件触发:

当从一个节点跳到另一个节点,会触发TTreeView.OnChange事件。该事件中,将传递node,即当前被选中的节点。

当修改一个节点的text时,会触发TTreeView.onEdit事件。

六、将节点和节点所对应的数据联系起来

对于每个TTreeNode,有个Data属性,可以存放一个指针。我们可以利用这个域来存放与节点对应的自己的数据。

1.我们先定义一个数据结构,作为记录我们要记录的数据。如:

type

PMyData=^TMyData;

TMyData=Record

sFName:string;

sLName:String;

nIndex:integer;

end;

2.然后,创建数时,将节点和节点数据联系起来:

procedure TForm1.Button1Click(Sender: TObject);

var

myshuju: PMyData

cur_node:TTreeNode;

begin

New(MyRecPtr); //记住,一定要先分配内存。有几个节点,就要分配几次内存。 myshuju^.FName:=Edit1.Text;

Myshuju^.LName := Edit2.Text;

TreeViewIndex := StrToInt(Edit3.Text);

with TreeView1 do

begin

cur_node:=items.AddFirst(nil,'first');

cur_node.data:=myshuju;

end;

end;

3.当我们选中一个节点时,就可以使用我们的数据了。

procedure TForm1.TreeView1Change(Sender:TObject;Node:TTreeNode);

begin

if node.data<>nil then

bel1.caption:=pmyData(node.data)^.Fname+pmyData(node.data)^.Lname end;

七、一般使用流程:

1、添加全局变量:

b_first:boolean; //记录是否是第一次访问节点,因为此时数据还未准备好,而一旦访问节点就会触发OnChange事件,在此事件处理函数中也许会出错。

2、在FormCreate中,

a、设置b_first:=true;

b. 创建数并将节点与数据联系。

3、在FormShow中

设置b_first:=false;

4.在事件OnChange中处理节点被选中事件。

5.在Edit中处理节点被修改Text事件。

并调用OnChange.

6.在 TreeView.Destory中

释放Data 中指向的内存空间。

我在写treeview的时候出现了一个小问题，我的根节点重复了，我应该怎么样去掉重复的节点呢，我在表里，有“种类”这一个字段，和一个“种类内容”一个字段，我是想如里在种类里输入与表中有相同的种类的内容，然后在种类内容里输入别的名称，在treeview里就只显示一个种类的根节点，然后在把那条重复的记录里的“种类内容”里的内容加到“种类”这个根节点下，这是我的代码：请看看怎么样改可以：

unit TREEUnit1;

interface

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

Dialogs, ComCtrls, Grids, DBGrids, DB, ADODB;

type

TTREEForm = class(TForm)

TreeView1: TTreeView;

DBTREEGrid: TDBGrid;

ADOTREETable: TADOTable;

ADOTREENODE20Query: TADOQuery;

DataTREESource: TDataSource;

ADOTREENODE21Query: TADOQuery;

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

TREEForm: TTREEForm;

node1,node2: ttreenode; //定义节点

aa:string;

implementation

uses MAINUnit1;

{$R *.dfm}

procedure TTREEForm.FormShow(Sender: TObject);

begin

//在TREEVIEW里列出信息

with ADOTREENODE20Query do

begin

Close;

SQl.Clear;

SQL.Add('select * from treenr order by 种类');

Open;

end;

ADOTREENODE20Query.First;//从第一条记录开始

while not ADOTREENODE20Query.Eof do

begin //select distinct 种类 from treenr

//添加根节点

node2:= TreeView1.Items.Add(node1,ADOTREENODE20Query.FieldValues['种