树形图(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的概念可以用下图表示：
4.排序
SortType决定什么时候进行排序；
TreeView.AlphaSort对节点进行排序，如果不能满足要求，你可以定义自己的CustomSort方法。
5.Drag&Drop操作
与标准的拖放操作使用方法一样。
以上具体函数的使用细节可以参考联机帮助。具体的代码编写可以参考Delphi2.0中提供的有关Treeview和ListView控件的使用例子
delphi中树型控件的使用技巧
作者： 檀革勤 评价： 上站日期: 2001-06-29
内容说明：
来源：
--------------------------------------------------------------------------------
我们都知道，开发者主要用delphi来开发数据库管理软件，正因如此，树型控件的使用最好与数据库联系起来。delphi提供了一个树型控件ttreeview，可以用来描述复杂的层次关系。
树节点信息的存储和加载
常用的方法是用树控件的 loadfromfile和savetofile方法，来实现树控件和文件之间的交互；或用assign方法实现树控件和dbmemo，也就是和数据库间的交互。该方法的优点是编程相对简单，缺点是树控件的实际节点数可能会很大，对于“大树”，每次加载和存储的数据量会加大，将降低速度，增大系统开销，造成数据冗余。另一种方法，就是只在树上产生“看得见”的节点，没有专门记录全部树节点结构的文件或数据库字段，而将树节点结构分散在数据库的每一个记录中。
具体方法是：创建一个数据库，字段根据实际业务而定，其中必然有一个字段的信息将在树型控件的节点上显示，另外还要一个字段来保存节点的惟一标识号，该标识号由长度相等的两部分组成，前段表示当前节点的父节点号，后段表示当前节点的节点号，此标识号相当于一个“链表”，记录了树上节点的结构。该方法的优点：用户操作“大树”时，一般不会展开所有的节点，而只用到有限的一部分，同时只能从树根一层一层地展开，该法只在树上产生“看得见”的节点，所以，存储和加载“大树”的速度快，数据量小，系统开销和数据冗余较小。缺点：编程较复杂，但可以结合该方法编成一个新的树控件，将大大提高编程效率。值得注意的是，id号必须惟一，所以在编程中如何合理产生id尤为重要。
数据库结构示例
创建一个数据库，为简化程序，我只创建两个数据库字段，定义如下：
字段名 类型 长度
text c 10
longid c 6
longid字段实际上由两段组成，每一段3位，longid只能表示1000条记录。将longid定义为索引字段，存为c:/testtree/tree.dbf。编辑该dbf文件，新建一条记录，text字段设为top，longid字段设为“000”(3个“0”前为三个空格)。
创建演示程序
在form1上放置treeview1、table1、popupmenu1、edit1、edit2。treeview1的popupmenu属性设为popupmenu1；table1的databasename属性设为c:/testtree，tablename属性设为tree.dbf，indexfieldnames属性设为longid；为popupmenu1加选单项add1和del1，caption分别为add和del；edit1用来输入新节点的text属性值，edit2用来输入新节点的3位id号。存为c:/testtree/treeunit.pas和c:/testtree/testtree.dpr。
在treeunit.pas的type关键字后加入一行：pstr=^string;{pstr为字符串指针}
为form1的oncreate事件添加代码：
procedure tform1.formcreate(sender: tobject);
var p
str;node:ttreenode;
begin
with table1,treeview1 do
begin
open;
first;
new(p);{为指针p分配内存}
p^:=fieldbyname(′longid′).asstring;
node:=items.addchildobject(nil,fieldbyname(′text′).asstring,p);
if hassubindbf(node) then items.addchildobject(node,′ ′,nil);{有子节点则加一个空子节点}
end;
end;
hassubindbf为自定义函数，自变量为node，检查节点node有无子节点，有则返回true，反之返回false，并在tform1的类定义里加入原型声明(其它自定义函数的原型也在tform1的类定义里声明，不另作解释)，函数代码如下：
function tform1.hassubindbf(node:ttreenode):boolean;
begin
with table1 do
begin
table1.findnearest([copy(pstr(node.data)^,4,3)＋′000′]);
result:=copy(fieldbyname(′longid′).asstring,1,3)=copy(pstr(node.data)^,4,3);{如数据库里当前记录的longid字段内容的前3位和节点node的data的后3位相同，则node应该有子节点}
end;
end;
为treeview1控件的ondeletion事件添加代码，需要指出的是，不仅调用delete方法可以触发ondeletion事件，而且当树控件本身被释放前，也触发ondeletion事件，所以，在此处加入dispose(node.data)会很“安全”：
procedure tform1.treeview1deletion(sender: tobject; node: ttreenode);
begin
dispose(node.data);{释放节点数据内存}
end;
为add1选单项的onclick事件添加代码如下：
procedure tform1.add1click(sender: tobject);
var p
str;tmpstr:string;i:integer;
begin
try
strtoint(edit2.text);
tmpstr:=edit2.text;{注：在实用中，必须用更好的方法来产生id}
except;
showmessage(′重新输入edit2的内容′);
abort;
end;
with treeview1 do
begin
new(p);
p^:=copy(pstr(selected.data)^,4,3)＋tmpstr;
items.addchildobject(selected,edit1.text,p);
end;
with table1 do{ 在数据库里添加记录 }
begin
append;
fieldbyname(′text′).asstring:=edit1.text;
fieldbyname(′longid′).asstring:=p^;
post;
end;
tmpstr:=inttostr(strtoint(tmpstr)＋1);
for i:=length(tmpstr) to 2 do tmpstr:=′0′＋tmpstr;
edit2.text:=tmpstr;
end;
为del1菜单项的onclick事件添加代码如下：
procedure tform1.del1click(sender: tobject);
var dellist:tstringlist;longid,nsublongid:string;
begin
dellist:=tstringlist.create;
dellist.sorted:=true;
dellist.add(pstr(treeview1.selected.data)^);
while dellist.count> 0 do
begin
longid:=dellist.strings[0];
dellist.delete(0);
table1.setkey;
table1.fieldbyname(′longid′).asstring:=longid;
if table1.gotokey then table1.delete;
if hassubindbf(treeview1.selected) then
begin
nsublongid:=table1.fieldbyname(′longid′).asstring;
while (copy(nsublongid,1,3)=copy(longid,4,3))and(not table1.eof) do
begin
dellist.add(nsublongid);
table1.next;
nsublongid:=table1.fieldbyname(′longid′).asstring;
end;
end;
end;
dellist.free;
treeview1.items.delete(treeview1.selected);
end;
为treeview1的onexpanding事件添加代码：
procedure tform1.treeview1expanding(sender: tobject; node: ttreenode;
var allowexpansion: boolean);
var tmpnode:ttreenode;nsublongid:string;p
str;bm:tbookmark;
begin
with table1,treeview1 do
begin
items.beginupdate;
setkey;
fieldbyname(′longid′).asstring:=pstr(node.data)^;
if not gotokey then items.delete(node)
else
begin
tmpnode:=node.getfirstchild;
if (tmpnode.text=′ ′)and(tmpnode.data=nil) then
begin
tmpnode.delete;
if hassubindbf(node) then
begin
nsublongid:=fieldbyname(′longid′).asstring;
while (copy(nsublongid,1,3)=copy(pstr(node.data)^,4,3))and(not eof) do
begin
new(p);
p^:=fieldbyname(′longid′).asstring;
bm:=getbookmark;
tmpnode:=items.addchildobject(node,fieldbyname(′text′).asstring,p);
if hassubindbf(tmpnode) then items.addchildobject(tmpnode,′ ′,nil);
gotobookmark(bm);
freebookmark(bm);
next;
nsublongid:=fieldbyname(′longid′).asstring;
end; end; end;
end;
items.endupdate;
end;
end;
以上简要谈了谈数据库的树状显示的基本方法，另外，编辑树上节点的text属性的同时对数据库进行修改、同一数据库在多用户同时操作时数据库以及树的一致性、树上节点的拷贝与复制等就不再赘述，读者可自行完善。本文程序在dlphi4.0、windows 98下调试通过。
