2024年5月30日发(作者：)
TreeView由节点构成,建树通过对属性进行操作。Items是一个TTreeNodes对象,这是一个
TTreeNode集。
一、针对TTreeNodes,也就是 ,有这些属性:
1、count,节点个数。
2、item[index] ,通过index得到节点。
二、针对TTreeNodes,也就是 ,常用的添加节点的操作有:
AddFirst添加第一个根节点。由此函数添加的节点总排在前面,除非后来又使用此函数添加了一个节点,则后
添加的节点将排在前面。该函数返回新添加的节点。
AddChildFirst添加第一个子节点,要求有父节点作为其参数。返回新添加的节点。
AddChild添加一个子节点,要求有父节点作为其参数。返回新添加的节点。
Add添加一个兄弟节点,要求有兄弟节点作为其参数。返回新添加的节点。
三、针对TTreeNodes,也就是 ,常用的得到节点的操作有:
GetFirstNode() 得到根节点。
然后配合t(),就可以访问所有的节点。
四、建树举例:
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;
五、事件触发:
当从一个节点跳到另一个节点,会触发ge事件。该事件中,将传递node,即当前被选中的节
点。
当修改一个节点的text时,会触发事件。
六、将节点和节点所对应的数据联系起来
对于每个TTreeNode,有个Data属性,可以存放一个指针。我们可以利用这个域来存放与节点对应的自己的
数据。
1.我们先定义一个数据结构,作为记录我们要记录的数据。如:
type
PMyData=^TMyData;
TMyData=Record
sFName:string;
sLName:String;
nIndex:integer;
end;
2.然后,创建数时,将节点和节点数据联系起来:
procedure 1Click(Sender: TObject);
var
myshuju: PMyData
cur_node:TTreeNode;
begin
New(MyRecPtr); //记住,一定要先分配内存。有几个节点,就要分配几次内存。
myshuju^.FName:=;
Myshuju^.LName := ;
TreeViewIndex := StrToInt();
with TreeView1 do
begin
cur_node:=st(nil,'first');
cur_:=myshuju;
end;
end;
3.当我们选中一个节点时,就可以使用我们的数据了。
procedure ew1Change(Sender:TObject;Node:TTreeNode);
begin
if <>nil then
n:=pmyData()^.Fname+pmyData()^.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.在 y中
释放Data 中指向的内存空间。
我在写treeview的时候出现了一个小问题，我的根节点重复了，我应该怎么样去掉重复的节点呢，我在表
里，有“种类”这一个字段，和一个“种类内容” 一个字段，我是想如里在种类里输入与表中有相同的种类的
内容，然后在种类内容里输入别的名称，在treeview里就只显示一个种类的根节点，然后在把那条重复的
记录里的“种类内容”里的内容加到“种类”这个根节点下，这是我的代码：请看看怎么样改可以：
unit TREEUnit1;
interface
uses
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 ow(Sender: TObject);
begin
//在TREEVIEW里列出信息
with ADOTREENODE20Query do
begin
Close;
;
('select * from treenr order by 种类');
Open;
end;
;//从第一条记录开始
while not do
begin //select distinct 种类 from treenr
//添加根节点
node2:= (node1,alues['种类']);
with ADOTREENODE21Query do
begin
Close;
;
('select 种类,种类编号,种类内容 from treenr where 种类 =:zl');
yName('zl').Value:= yName('种类').AsString;
Open;
end;
;//从第一条记录开始
while not do
begin
//ndex := 1;
//添加子节点
ld(node2,yname('种类内容').asstring) ;
;//下一条记录
end;
;//下一条记录
end;
end;
end.
此帖子包含附件:
大小:26.1K
发布评论