给个例子吧 关于Treeview 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 瞧，最简单的例子，:-)var a:TTreeView;begin a:=TTreeView.Create(nil); a.free;end; if TreeView.TopItem.Text <> '' then...TreeView.FullExpand; TREEVIEW的使用基本信息:TreeView 是一个显示树型结构的控件每一个节点都是一个新类使用具有代表性每个节点都有四个值:TEXT:显示文字 Image Index:显示图形序号Selected Index:State Index:(1)建立目录项(本例中使用的TREEVIEW名称为:TvwTips)增加根目录下的节点:(节点)varCatNode : TTreeNode; //先建立一个TREEVIEW使用的子对象beginTvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上{ 在根标题下建立一个新的子标题 }CatNode := TvwTips.Items.AddChild(TvwTips.Items.GetFirstNode'New Category' );CatNode.ImageIndex := 1;CatNode.SelectedIndex := 2;CatNode.EditText; { 允许用户改变这个标题 }end;增加下一级目录(内容):varParentNodeTipNode : TTreeNode; //先建立TREEVIEW使用的子对象VersionNum : Integer;beginTvwTips.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'NewSubject'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的第一个节点函数类型为:TTreeNodeTvwTips.Items.Count 返回当前TreeView的全部节点数整数TvwTips.Selected.Level 返回当前选中节点的在目录树中的级别根目录为0TvwTips.Selected.Parent 返回当前选中节点上级节点函数类型为:TTreeNode树形图(Treeview)的使用概述树形图(Treeview)是Win95下新增加的通用显示部件(Common Control，在COMCTL32.DLL中)之一，从Delphi2.0开始也增加了相应的控件Treeview，用于取代原Outline控件。由于树形图结构较复杂，使用起来常不知如何下手。这里就使用中的一些问题作些介绍。Treeview用于显示按照树形结构进行组织的数据，这在实际当中用途还是比较广泛的，如计算机中的文件系统(Windows95中的资源管理器)、企业或公司的组成结构等等。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属性表明一个项是否有子项。 GetFirstChildGetLastChildGetPrevChildand GetNextChild分别返回当前项子项的第一个、最后一个和前一个、后一个项。GetNextSibling and GetPrevSibling则返回在同一Level下的下一个和上一个项。GetNextVisible and GetPrevVisible则返回能看得到的下一个和上一个项。如果一个节点有Parent，则HasAsParent方法返回True. Parent为当前项的父项。Focused属性确定焦点是否落在此节点上，被Focus时会一个标准的方框围住。很显然，只有一个节点会被聚焦。 Selected属性表明一个节点是否被选中，同样只有一个节点会被选中。DropTarget属性表明节点在拖动操作中是源还是目标。.1.添加、删除、修改节点：静态的方法可以在设计时通过Items的编辑器设置各节点的内容。在添加和删除前必须保证有节点被选中(Treeview.Selected= nil)用AddFirstAddFirstChildAddChild等先添加根节点，如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.关于LevelLevel的概念可以用下图表示：Level0 Level1 Level24.排序SortType决定什么时候进行排序；TreeView.AlphaSort对节点进行排序，如果不能满足要求，你可以定义自己的CustomSort方法。5.Drag&Drop操作，与标准的拖放操作使用方法一样。 不得不佩服 IORILI(眼镜@_@) 的精神!你直接去看帮助文件就没问题了的. 都让 IORILI(眼镜@_@) 说 了 http://www.cnread.net/cnread1/dnwl/cxsj/delphi/ztwd/kjyy/027.htm刚找的 记录添加问题！好疑惑的问题 delphi+mapx做GIS开发，如何进行数据绑定。哪位做过的给点例子？ 大家进来讨论一下Delphi2005的问题！ >经常来CSDN,有厦门的程序员朋友吗? < 有谁告诉我TComponent.GetIDsOfNames怎么用啊 914(就要死）不高兴了，散分 如何定义，使用一个全局热键（在键盘上） 关于超级解霸2000的调用问题！！请大家帮忙！！！ 如何隐藏Word中的菜单栏以外的所有工具条？急...... 关注呀！至今无人解答？ 请问怎样才能实现这样的功能??? 折腾了我三天的问题还未解决。
var
a:TTreeView;
begin
a:=TTreeView.Create(nil);
a.free;
end;
...TreeView.FullExpand;
基本信息:
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
树形图(Treeview)的使用概述
树形图(Treeview)是Win95下新增加的通用显示部件(Common Control，在COMCTL32.DLL中)之一，从Delphi2.0开始也增加了相应的控件Treeview，用于取代原Outline控件。由于树形图结构较复杂，使用起来常不知如何下手。这里就使用中的一些问题作些介绍。
Treeview用于显示按照树形结构进行组织的数据，这在实际当中用途还是比较广泛的，如计算机中的文件系统(Windows95中的资源管理器)、企业或公司的组成结构等等。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 Level2
4.排序
SortType决定什么时候进行排序；
TreeView.AlphaSort对节点进行排序，如果不能满足要求，你可以定义自己的CustomSort方法。
5.Drag&Drop操作，与标准的拖放操作使用方法一样。
刚找的