Delphi Treeview用法介绍

1、Treeview简介
Treeview用于显示按照树形结构进行组织的数据。
Treeview控件中一个树形图由节点(TreeNode)和连接线组成。TtreeNode是TTreeview的基本组成单元。
一个树的节点又包含文本(Text)和数据(Data)。Text为String类,Data则为无定形指针(Untyped Pointer),可以指向一个与节点相联系的数据结构。

2、属性、方法  
每一个节点下子节点形成这一节点的Items属性,当前节点有一个唯一的Index(TreeNode的Index属性),用于说明子节点在Items中的位置,每一个节点下的子节点是顺序编号的,第一个是0,第二个是1,依次类推。
IndexOf:用于获得子节点的顺序
AbsoluteIndex:绝对顺序,指从Treeview第一个项开始的顺序值,第一个是0,如此推下去。
Count:此项的所有子节点的数量。
MoveTo:将Item由一个位置移到另一个位置。
Expanded:是否所有的子项都全部展开(包括子项的子项),True全部展开。
IsVisible:一个项是否在树中能被看到,如果树全部展开那么这个Item是肯定可以被看到。
HasChildren:一个项是否有子项。以下方法用于返回当前项子项的
GetFirstChild://第一个
GetLastChild:最后一个
GetPrevChild:前一个
GetNextChild:后一个。
GetNextSibling :返回在同一Level下的下一个
GetPrevSibling:则返回在同一Level下上一个项。
GetNextVisible:返回能看得到的下一个
GetPrevVisible:返回能看得到的上一个项
HasAsParent:判定Parent是否为当前项的父项。
Focused:确定焦点是否落在此节点上,被Focus时会一个标准的方框围住。
Selected:一个节点是否被选中,同样只有一个节点会被选中。
DropTarget:节点在拖动操作中是源还是目标。

3、添加、删除、修改节点:
静态的方法可以在设计时通过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
这样能加快显示速度。


4、在节点上添加图象
Treeview中几个与图象相关的属性:
  SelectedIndex:当节点被选中时在TimageList 中选什么样的图象
  OverlayIndex:选那副图象作为掩图(一幅图象透明地显示在另一幅图象的前面),比如一个节点不可用时加一副X图象在其前面。
  ImageIndex:在常态时选用的图的序号
  StateIndex: 在StateImages这个ImageList中对应的序号,-1时不显示图象,
比较典型的,像在文件管理器中的所显示的一样,Treeview控件在节点之前也可以显示图象。在Form中放置一ImageList控件,加入几个图片,分别被Index为0,1,… 在Treeview的Image属性项填入你所加入的ImageList的控件名称。TreeNode的ImageIndex 表示节点未被选中时(Selected=nil)的图片序号,SelectedIndex表示节点被选中时图片序号。
  
5、关于Level
Level的概念可以用下图表示:
Level0   Level1 Level2

6、排序
SortType决定什么时候进行排序;
TreeView.AlphaSort 对节点进行排序,如果不能满足要求,你可以定义自己的CustomSort方法。

7、Drag&Drop操作,与标准的拖放操作使用方法一样

8、TreeView的用法示例
8.1建立目录项(本例中使用的TREEVIEW名称为:TvwTips)
增加根目录下的节点:(节点)

var 
  CatNode : TTreeNode; //先建立一个TREEVIEW使用的子对象 
begin 
  Treeview1.SetFocus; //将焦点置到这个TREEVIEW控件上 
  { 在根标题下建立一个新的子标题 } 
  CatNode := Treeview1.Items.AddChild( 
  Treeview1.Items.GetFirstNode,'New Category' ); //返回TREEVIEW的第一个节点,函数类型为:TTreeNode 
  CatNode.ImageIndex := 1; 
  CatNode.SelectedIndex := 2; 
  CatNode.EditText; { 允许用户改变这个标题 } 
end;  

增加下一级目录(内容): 

var 
  ParentNode, TipNode : TTreeNode; //先建立TREEVIEW使用的子对象 
  VersionNum : Integer; 
begin 
  Treeview1.SetFocus; //将焦点置到这个Treeview控件上 
  VersionNum := TMenuItem( Sender ).Tag; { Ver num of new tip } 
  ParentNode := Treeview1.Selected; { 取出当前的选中节点 } 
  if ParentNode.Level = nlTip then{ Parent cannot be a tip node } 
  ParentNode := Treeview1.Selected.Parent; 

  TipNode :=Treeview1.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; 

说明
Treeview1.Items.Count 返回当前TreeView的全部节点数,整数
Treeview1.Selected.Level 返回当前选中节点的在目录树中的级别,根目录为0 
Treeview1.Selected.Parent 返回当前选中节点上级节点,函数类型为:TTreeNode
特别提示: Expand(False)不展开其子孙结点, Expand(True)全部展开

原文地址:https://www.cnblogs.com/guorongtao/p/4422976.html