每一个节点下子节点形成这一节点的Items属性,当前节点有一个唯一的Index(TreeNode的Index属性), 用于说明子节点在Items中的位置,每一个节点下的子节点是顺序编号的,第一个是0,第二个是1,依次类推。 用IndexOf方法获得子节点的顺序,绝对顺序(AbsoluteIndex)则是指从Treeview第一个项开始的顺序值, 第一个是0,如此推下去。Item属性则根据Index的值返回当前节点的第Index个子节点。Count则表明属于 此项的所有子节点的数量。用MoveTo方法将Item由一个位置移到另一个位置。Expanded属性表明是否所有的子项都全部展开(包括子项的子项),为True表示全部展开。 IsVisible属性表明一个项是否在树中能被看到,如果树全部展开那么这个Item是肯定可以 被看到。HasChildren属性表明一个项是否有子项。 GetFirstChild, GetLastChild, GetPrevChild, and GetNextChild分别返回当前项子项的第一个、最后一个和前一个、后一个项。GetNextSibling and GetPrevSibling则返回在同一Level下的下一个和上一个项。 GetNextVisible and GetPrevVisible则返回能看得到的下一个和上一个项。如果一个节点 有Parent,则HasAsParent方法返回True. Parent为当前项的父项。Focused属性确定焦点是 否落在此节点上,被Focus时会一个标准的方框围住。很显然,只有一个节点会被聚焦。 Selected属性表明一个节点是否被选中,同样只有一个节点会被选中。DropTarget属性表明节点在拖动操作中是源还是目标。.1.添加、删除、修改节点: 静态的方法可以在设计时通过Items的编辑器设置各节点的内容。 在添加和删除前必须保证有节点被选中(Treeview.Selected = nil) 用AddFirst, AddFirstChild, AddChild等先添加根节点,如Treeview.Items.AddFirst( nil, 'Root'); 然后以此为基础,添加此项的子节点。删除节点 Treeview.Selected.Delete编辑节点内容 Treeview.Selected.EditText注意:由于根节点没有父节点 (TTreeNode.Parent= nil) 此外,在大批量添加数据到Treeview中时最好使用 TreeView.Items.BeginUpdate; 添加节点 TreeView.Items.EndUpdate 这样能加快显示速度。2.在节点上添加图象 Treeview中几个与图象相关的属性: SelectedIndex:当节点被选中时在TimageList 中选什么样的图象 OverlayIndex:选那副图象作为掩图(一幅图象透明地显示在另一幅图象的前面), 比如一个节点不可用时加一副X图象在其前面。 ImageIndex:在常态时选用的图的序号 StateIndex: 在StateImages这个ImageList中对应的序号,-1时不显示图象 比较典型的,象在文件管理器中的所显示的一样,Treeview控件在节点之前也可以 显示图象。在Form中放置一ImageList控件,加入几个图片,分别被Index为0,1,… 在Treeview的Image属性项填入你所加入的ImageList的控件名称。TreeNode的ImageIndex 表示节点未被选中时(Selected=nil)的图片序号,SelectedIndex表示节点被选中时图片序号。3.关于Level Level的概念可以用下图表示: Level0 Level1 Level24.排序 SortType决定什么时候进行排序; TreeView.AlphaSort对节点进行排序,如果不能满足要求,你可以定义自己的CustomSort方法。5.Drag&Drop操作,与标准的拖放操作使用方法一样TreeView的使用方法 基本信息: TreeView 是一个显示树型结构的控件,每一个节点都是一个新类, 使用具有代表性 每个节点都有四个值: TEXT:显示文字 Image Index:显示图形序号 Selected Index: State Index:(1)建立目录项(本例中使用的TREEVIEW名称为:TvwTips)增加根目录下的节点:(节点) var CatNode : TTreeNode; //先建立一个TREEVIEW使用的子对象 begin TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上 { 在根标题下建立一个新的子标题 } CatNode := TvwTips.Items.AddChild( TvwTips.Items.GetFirstNode,'New Category' ); CatNode.ImageIndex := 1; CatNode.SelectedIndex := 2; CatNode.EditText; { 允许用户改变这个标题 } end;增加下一级目录(内容): var ParentNode, TipNode : TTreeNode; //先建立TREEVIEW使用 的子对象 VersionNum : Integer; begin TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上 VersionNum := TMenuItem( Sender ).Tag; { Ver num of new tip } ParentNode := TvwTips.Selected; { 取出当前的选中节点 } if ParentNode.Level = nlTip then{ Parent cannot be a tip node } ParentNode := TvwTips.Selected.Parent;TipNode := TvwTips.Items.AddChildObject( ParentNode,'New Subject',Pointer( VersionNum ) ); TipNode.ImageIndex := 3; { Normal tip bitmap } TipNode.SelectedIndex := 4; { Highlighted tip bitmap } TipNode.MakeVisible; { Move new tip node into view } TipNode.EditText; { Immediately allow user to edit subject } EnableTreeViewFunctions( TipNode.Level ); RtfTip.Clear; RtfTip.Modified := False; end;(2)说明 TvwTips.Items.GetFirstNode 返回TREEVIEW的第一个节点,函数类型为 :TTreeNode TvwTips.Items.Count 返回当前TreeView的全部节点数,整数 TvwTips.Selected.Level 返回当前选中节点的在目录树中的级别, 根目录为0 TvwTips.Selected.Parent 返回当前选中节点上级节点,函数类型为 :TTreeNode
procedure TForm1.Button1Click(Sender: TObject); var Node1:TTreeNode; i:integer; begin TreeView1.Items.Clear; //清空 ADODataSet1.Sort:='SJ ASC'; //排序 ADODataSet1.First; while not ADODataSet1.Eof do begin if TreeView1.Items.Count=0 then Node1:=TreeView1.Items.AddChild(Nil,ADODataSet1.FieldByName('SJ').AsString) else begin if Pos(Node1.Text,ADODataSet1.FieldByName('SJ').AsString)=0 then for i:=1 to 10000 do if Node1.Level=0 then Break else begin Node1:=Node1.Parent; if Pos(Node1.Text,ADODataSet1.FieldByName('SJ').AsString)>0 then break; end; Node1:=TreeView1.Items.AddChild(Node1,ADODataSet1.FieldByName('SJ').AsString) end; ADODataSet1.Next; end; end;
楼主兄弟是打算变性的,支持一下!问题是你的数据是怎么组织的,如果是一行一行的数据,并且有直接的层次号,那么就可以不用递归也能生成树了,如:假设ds是数据集,ds.EOF表示是否已经到了末尾,而ds.nextrow为得到下一行数据,row为行对象,row.text为文本数据,row.level表示级别/层号。则:procedure GenTree( ds ); var row: TDataRow; node: TTreeNode; // 当前节点对象 begin node := nil; TreeView1.Items.Clear; while (not ds.EOF) do begin row := ds.nextrow(); if not Assigned(node) then begin assert( row.level=0 ); // 第一个节点的深度应该为0,也可以修改为1,看逻辑了 node := TreeView1.Items.Add( nil, row.text ); continue; end;
Treeview用于显示按照树形结构进行组织的数据。Treeview控件中一个树形图由节点(TreeNode)和连接线组成。TtreeNode是TTreeview的基本组成单元。
一个树的节点又包含文本(Text)和数据(Data)。Text为String类,Data则为无定形指针(Untyped Pointer),
可以指向一个与节点相联系的数据结构。
每一个节点下子节点形成这一节点的Items属性,当前节点有一个唯一的Index(TreeNode的Index属性),
用于说明子节点在Items中的位置,每一个节点下的子节点是顺序编号的,第一个是0,第二个是1,依次类推。
用IndexOf方法获得子节点的顺序,绝对顺序(AbsoluteIndex)则是指从Treeview第一个项开始的顺序值,
第一个是0,如此推下去。Item属性则根据Index的值返回当前节点的第Index个子节点。Count则表明属于
此项的所有子节点的数量。用MoveTo方法将Item由一个位置移到另一个位置。Expanded属性表明是否所有的子项都全部展开(包括子项的子项),为True表示全部展开。
IsVisible属性表明一个项是否在树中能被看到,如果树全部展开那么这个Item是肯定可以
被看到。HasChildren属性表明一个项是否有子项。 GetFirstChild, GetLastChild, GetPrevChild,
and GetNextChild分别返回当前项子项的第一个、最后一个和前一个、后一个项。GetNextSibling and GetPrevSibling则返回在同一Level下的下一个和上一个项。
GetNextVisible and GetPrevVisible则返回能看得到的下一个和上一个项。如果一个节点
有Parent,则HasAsParent方法返回True. Parent为当前项的父项。Focused属性确定焦点是
否落在此节点上,被Focus时会一个标准的方框围住。很显然,只有一个节点会被聚焦。 Selected属性表明一个节点是否被选中,同样只有一个节点会被选中。DropTarget属性表明节点在拖动操作中是源还是目标。.1.添加、删除、修改节点:
静态的方法可以在设计时通过Items的编辑器设置各节点的内容。
在添加和删除前必须保证有节点被选中(Treeview.Selected = nil)
用AddFirst, AddFirstChild, AddChild等先添加根节点,如Treeview.Items.AddFirst( nil, 'Root');
然后以此为基础,添加此项的子节点。删除节点
Treeview.Selected.Delete编辑节点内容
Treeview.Selected.EditText注意:由于根节点没有父节点 (TTreeNode.Parent= nil)
此外,在大批量添加数据到Treeview中时最好使用
TreeView.Items.BeginUpdate;
添加节点
TreeView.Items.EndUpdate
这样能加快显示速度。2.在节点上添加图象
Treeview中几个与图象相关的属性:
SelectedIndex:当节点被选中时在TimageList 中选什么样的图象
OverlayIndex:选那副图象作为掩图(一幅图象透明地显示在另一幅图象的前面),
比如一个节点不可用时加一副X图象在其前面。
ImageIndex:在常态时选用的图的序号
StateIndex: 在StateImages这个ImageList中对应的序号,-1时不显示图象
比较典型的,象在文件管理器中的所显示的一样,Treeview控件在节点之前也可以
显示图象。在Form中放置一ImageList控件,加入几个图片,分别被Index为0,1,…
在Treeview的Image属性项填入你所加入的ImageList的控件名称。TreeNode的ImageIndex
表示节点未被选中时(Selected=nil)的图片序号,SelectedIndex表示节点被选中时图片序号。3.关于Level
Level的概念可以用下图表示:
Level0 Level1 Level24.排序
SortType决定什么时候进行排序;
TreeView.AlphaSort对节点进行排序,如果不能满足要求,你可以定义自己的CustomSort方法。5.Drag&Drop操作,与标准的拖放操作使用方法一样TreeView的使用方法
基本信息:
TreeView 是一个显示树型结构的控件,每一个节点都是一个新类,
使用具有代表性
每个节点都有四个值:
TEXT:显示文字 Image Index:显示图形序号
Selected Index:
State Index:(1)建立目录项(本例中使用的TREEVIEW名称为:TvwTips)增加根目录下的节点:(节点)
var
CatNode : TTreeNode; //先建立一个TREEVIEW使用的子对象
begin
TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上
{ 在根标题下建立一个新的子标题 }
CatNode := TvwTips.Items.AddChild(
TvwTips.Items.GetFirstNode,'New Category' );
CatNode.ImageIndex := 1;
CatNode.SelectedIndex := 2;
CatNode.EditText; { 允许用户改变这个标题 }
end;增加下一级目录(内容):
var
ParentNode, TipNode : TTreeNode; //先建立TREEVIEW使用
的子对象
VersionNum : Integer;
begin
TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上
VersionNum := TMenuItem( Sender ).Tag; { Ver num of new tip }
ParentNode := TvwTips.Selected; { 取出当前的选中节点 }
if ParentNode.Level = nlTip then{ Parent cannot be a tip node }
ParentNode := TvwTips.Selected.Parent;TipNode := TvwTips.Items.AddChildObject( ParentNode,'New
Subject',Pointer( VersionNum ) );
TipNode.ImageIndex := 3; { Normal tip bitmap }
TipNode.SelectedIndex := 4; { Highlighted tip bitmap }
TipNode.MakeVisible; { Move new tip node into view }
TipNode.EditText; { Immediately allow user to edit subject }
EnableTreeViewFunctions( TipNode.Level );
RtfTip.Clear;
RtfTip.Modified := False;
end;(2)说明
TvwTips.Items.GetFirstNode 返回TREEVIEW的第一个节点,函数类型为
:TTreeNode
TvwTips.Items.Count 返回当前TreeView的全部节点数,整数
TvwTips.Selected.Level 返回当前选中节点的在目录树中的级别,
根目录为0
TvwTips.Selected.Parent 返回当前选中节点上级节点,函数类型为
:TTreeNode
var
Node1:TTreeNode;
i:integer;
begin
TreeView1.Items.Clear; //清空
ADODataSet1.Sort:='SJ ASC'; //排序
ADODataSet1.First;
while not ADODataSet1.Eof do
begin
if TreeView1.Items.Count=0 then
Node1:=TreeView1.Items.AddChild(Nil,ADODataSet1.FieldByName('SJ').AsString)
else
begin
if Pos(Node1.Text,ADODataSet1.FieldByName('SJ').AsString)=0 then
for i:=1 to 10000 do
if Node1.Level=0 then
Break
else
begin
Node1:=Node1.Parent;
if Pos(Node1.Text,ADODataSet1.FieldByName('SJ').AsString)>0 then break;
end;
Node1:=TreeView1.Items.AddChild(Node1,ADODataSet1.FieldByName('SJ').AsString)
end;
ADODataSet1.Next;
end;
end;
female??
var
row: TDataRow;
node: TTreeNode; // 当前节点对象
begin
node := nil;
TreeView1.Items.Clear;
while (not ds.EOF) do
begin
row := ds.nextrow();
if not Assigned(node) then
begin
assert( row.level=0 ); // 第一个节点的深度应该为0,也可以修改为1,看逻辑了
node := TreeView1.Items.Add( nil, row.text );
continue;
end;
assert( row.level<=node.level+1 ); // 不能是当前节点的孙子或更小辈
// 如果目前的行的数据辈份较高,找到前辈节点
while (row.level<node.level) do
node := node.parent;
// 如果比当前节点的辈份小一,则添加为儿子
if row.level==node.level+1 then
node := TreeView1.Items.AddChild( node, row.text )
else // 否则添加为兄弟
node := TreeView1.Items.Add( node, row.text );
end;
end;