delphi中Treeview的使用介绍每一个节点下子节点形成这一节点的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表示节点被选中时图片序号。
/////////////////////////////////////////////////////////// /////delphi下treeview控件基于节点编号的访问有时我们需要保存和重建treeview控件，本文提供一种方法，通过以树结构节点的编号访问树结构，该控件主要提供的方法如下：function GetGlobeNumCode(inNode:TTreeNode):String;功能：返回当前节点的编号，编号规则见源码内说明。
function LocatOrGenerateNode(inNumCode:String):TTreeNode; 功能：以编号返回节点，假如节点的父节点和它的前继兄弟节点不存在，该方法会创建它们，名称为'Temp'，当然假如已经存在，就不执行创建工作。
通过以上两个函数，这样我们就可以不加限制的创建和访问节点。
该控件在我以前开发的，现在提供给大家做一个参考，希望能对你有帮助。
源码：// ***********************************************//// 用于实现对TreeView控件的树结构的保存和重建// 编写该控件主要用于实现对行政文件等具有树的层次结构的对象// 实现保存和显示// 节点编号规则：// + ***** ->1// + ***** ->1.1// + ***** ->1.1.1// + ***** ->1.2// 作者：Jack// 最后修改日期：2002-12-24//// **********************************************unit CtrlTree;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls,Forms, Dialogs,ComCtrls;typeTCtrlTree = class(TTreeView)private{ Private declarations }functionGetPosAtBound(inString:String;inStart:Integer):Integer; function GetTheLastPointPos(inString:String):Integer; protected{ Protected declarations }public{ Public declarations }function GetNumInSameLevel(inNode:TTreeNode):Integer; function GetGlobeNumCode(inNode:TTreeNode):String;function GetParent(inNumCode:String):TTreeNode;functionLocateNodeInLevel(parNode:TTReeNode;LevelCode:integer):TTRe eNode;published{ Published declarations }function LocatOrGenerateNode(inNumCode:String):TTreeNode;functionInsertAsFinalChild(inString:String;inNode:TTreeNode):TTReeN ode;functionInsertAsPreviousSibling(inString:String;inNode:TTreeNode):T TReeNode;end;procedure Register;implementationprocedure Register;beginRegisterComponents('Standard', [TCtrlTree]);end;{ TCtrTree }function TCtrlTree.GetNumInSameLevel(inNode: TTreeNode): integer;{功能：产生已存在节点在兄弟节点层中对应的编号，从1起编入口参数：inCode:TTreeNode节点返回：同层编号}vari:integer;tmp:TTreeNode;begini:=0;tmp:=inNode;while tmp<>nil dobegintmp:=tmp.getPrevSibling;i:=i+1;end;Result:=i;end;function TCtrlTree.GetGlobeNumCode(inNode: TTreeNode): string;{功能：产生已存在节点对应的全局编号入口参数：inCode:TTreeNode节点返回：全局编号}varnocode:string;tmp:TTreeNode;begintmp:=inNode;nocode:=IntToStr(GetNumInSameLevel(tmp));while tmp.Level<>0 dobegintmp:=tmp.Parent;nocode:=inttostr(GetNumInSameLevel(tmp))+'.'+nocode;end;Result:=nocode;end;function TCtrlTree.LocatOrGenerateNode(inNumCode: String): TTreeNode;{功能：根据提供的全局编号进行定位，如路径不全，则创建路径在定位过程产生的节点的Text为Temp最终返回对应于全局编号的子节点入口参数：inNumCode:String为全局编号返回：全局编号对应的字节点}vari,j:Cardinal;NumInLevel:integer;tmp:TTreeNode;par:TTreeNode;begintmp:=nil;i:=1;while i<=StrLen(PChar(inNumCode)) dobegin//得到下一个点号的开始位j:=GetPosAtBound(inNumCode,i);//得到在兄弟节点中的排行数NumInLevel:=StrToInt(Copy(inNumCode,i,j-i+1));//定位父节点par:=GetParent(Copy(inNumCode,1,j));//得到对应的节点tmp:=LocateNodeInLevel(par,numInLevel);i:=j+2;end;Result:=tmp;end;function TCtrlTree.GetParent(inNumCode: String): TTreeNode; {功能：根据提供的全局编号找到对应的父节点如果是第一层的节点，则父节点为nil入口参数：inNumCode:String为全局编号返回：全局编号对应的父节点}varGoStep:integer;i:integer;j:integer;k:integer;SearChInNode:TTReeNode;ReturnNode:TTReeNode;begin//是第一层节点，返回nil;k:=GetTheLastPointPos(inNumCode);if k=0 thenbeginResult:=nil;Exit;end;//是第二层或第二层以上节点i:=1;SearchInNode:=Items.GetFirstNode;while i < GetTheLastPointPos(inNumCode) do beginj:=GetPosAtBound(inNumCode,i);GoStep:=StrToInt(Copy(inNumCode,i,j-i+1));if i=1 then //在第一层节点中搜索beginReturnNode:=SearchInNode;for k:=1 to GoStep-1 doReturnNode:=ReturnNode.getNextSibling;endelse //在第二层或第二层以上节点中搜索beginGoStep:=StrToInt(Copy(inNumCode,i,j-i+1)); ReturnNode:=SearchInNode.Item[GoStep-1];end;SearchInNode:=ReturnNode;i:=j+2end;Result:=SearchInNode;end;function TCtrlTree.LocateNodeInLevel(parNode: TTReeNode;LevelCode: integer): TTReeNode;{功能：根据父节点以及在兄弟节点中的编号找到对应的节点如果要创建兄弟及自己，则新创建的节点的Text为Temp入口参数：parNode: TTReeNode为父节点LevelCode: integer为编号返回：在parNode中编号为LevelCode的孩子节点}vari:integer;j:integer;tmp:TTreeNode;tmps:TTreeNode;begin//父节点为空，是第一层节点tmp:=nil;if parNode=nil thenbegini:=1;tmps:=Items.GetFirstNode;while (tmps<>nil) and (i<=LevelCode) do begintmp:=tmps;tmps:=tmps.getNextSibling;i:=i+1;end;i:=i-1;for j:=1 to LevelCode-i dotmp:=Items.AddChild(nil,'Temp');Result:=tmp;endelse //父节点不为空，正常处理beginif parNode.Count for i:= 1 to LevelCode-parNode.Count do Items.AddChild(parNode,'Temp');Result:=parNode.Item[LevelCode-1];end;end;function TCtrlTree.GetPosAtBound(inString:String;inStart:Integer): Integer;{功能：根据起始位置找到下一个'.'的前一个位置入口参数：inString: String节点编号inStart: Integer当前处理层次的起始位置返回：当前处理层次的结束位置}vartmp:Char;pos:integer;beginpos:=inStart+1;while pos <= Integer(StrLen(PChar(inString))) dobegintmp:=inString[pos];if tmp='.' thenBreakelsepos:=pos+1;end;Result:=pos-1;end;function TCtrlTree.GetTheLastPointPos(inString: String): Integer;{功能：找到编号中最后的'.'的位置入口参数：inString: String为节点编号返回：节点编号中最后的'.'的位置}vartmp:Char;pos:integer;beginpos:=Integer(StrLen(PChar(inString)));while pos>=1 dobegintmp:=inString[pos];if tmp='.' thenBreakelsepos:=pos-1;end;Result:=pos;end;function TCtrlTree.InsertAsFinalChild(inString: String; inNode: TTreeNode):TTReeNode;{功能：为当前节点插入一个孩子节点，位置为最后入口参数：inString: String为节点编号为待插入节点的字符串inNode: TTreeNode，当前节点}beginResult:=Items.AddChild(inNode,inString);end;function TCtrlTree.InsertAsPreviousSibling(inString: String; inNode: TTreeNode):TTReeNode;{功能：为当前节点插入一个前导的兄弟节点入口参数：inString: String为节点编号为待插入节点的字符串inNode: TTreeNode，当前节点}beginResult:=Items.AddChildFirst(inNode,inString);end;end./////////////////////////////////////////////////////////// /////delphi中treeview图标if TreeView.Items[i].parent = nil thenbeginTreeView.Items[i].ImageIndex := 0;end;if TreeView.Items[i].Text = '退出' thenbeginTreeView.Items[i].ImageIndex := 3;end;通过这种方式，设几种图标都行/////////////////////////////////////////////////////////// /////在Delphi 6 IDE中，最显眼的新功能可能就是Object TreeView了。
![[Delphi]VirtualTreeview使用说明](https://img.taocdn.com/s1/m/db421d17cd7931b765ce0508763231126edb7710.png)
