请问TREEVIEW怎么用？

Question

是不是跟菜单一样？请问具体语句怎么写？谢谢~

Answer 1

像win 的树形结构
例如:
定义treenode 类型
    FirstNode,SecondNode,thirdnode,fournode:TTreeNode; 
定义根节点
    FirstNode:=Tv1.Items.Add(nil,HostName+' (Host Id : '+inttostr(hostid)+' )');子节点
SecondNode:=Tv1.Items.AddChild(FirstNode,AdoTemp.fieldbyname('line_name').AsString);子子节点
thirdnode:=tv1.Items.AddChild(secondnode,CONF_TOOL.Adosection.fieldbyname('section_name').AsString);子子节点
FourNode:=tv1.Items.AddChild(thirdnode,CONF_TOOL.AdoGroup.fieldbyname('group_name').AsString);椰子节点
Tv1.Items.AddChild(FourNode,'<'+inttostr(CONF_TOOL.AdoStation.fieldbyname('Station_IDX').AsInteger)+'>'+CONF_TOOL.Adostation.fieldbyname('station_name').AsString);这个方法可以和imagelist接和得到图像
procedure TMainForm.TV1GetImageIndex(Sender: TObject; Node: TTreeNode);
begin
    NODE.ImageIndex:=NODE.Level;
    Node.SelectedIndex := Node.Level;
end;
                   

Answer 2

1.不是
2.  TreeView的使用    
    
一. 如何初始化一个TreeView？弄一个窗口，放上一个TreeView和一个Button，分别取名为TV1和Btn1。如果需要在每个节点前有个图，请在窗口上放上一个ImageList，取名为ImageList1，双击它，加入六个图标。还要记得记得将TV1的Images属性改为ImageList1噢。双击按钮Btn1，在里面填入以下代码，然后按F9运行，点击Btn1就可以看到效果了。procedure TForm1.Btn1Click(Sender: TObject);ConstMyDocDir = 'C:Documents';PersonDir = '3hSoft';VarVarI : Word;SubNodeName : array [1..5] of ShortString;RootNode, SubNode : TTreeNode;P : PString;beginSubNodeName[1] := '便笺';SubNodeName[2] := '发件箱';SubNodeName[3] := '联系人';SubNodeName[4] := '任务';SubNodeName[5] := '日记';TV1.Items.Clear;TV1.Items.BeginUpdate;New(P);P^ := MyDocDir + ' + PersonDir;RootNode := TV1.Items.AddObject(Nil, '个人文件夹', P);// 此 Node 的图标已对 Images 属性中取第 0 个了。For I := 1 to 5 dobeginNew(P);P^ := MyDocDir + ' + PersonDir + ' + SubNodeName[I];SubNode := TV1.Items.AddChildObject(RootNode, SubNodeName[I], P);;// 如果不想使用图标的话请删除以下两行SubNode.ImageIndex := I;SubNode.SelectedIndex := I;end;TV1.Items.EndUpdate;end;二.在TreeView中如何设置选中结点vari:integer; {i为设置的选中结点的索引值}beginif i>treeview1.items.count thentreeview1.items[i].selected:=true;或treeview1.selected:=treeview1.items[i];三。设置TreeView结点的图形1. 设置TreeView的images属性为已存在的images对象treeview1.images:=imagelist1;2. 在加入结点后执行：varanode:TTreeNode;begeinanode:=Treeview1.add(nil,'item1');anode.imageindex:=0; {结点未选中时显示的图标}anode.selectedindex:=1; {结点选中时显示的图标}end3. 如果结点图形在改变后未发生变化，可以执行：treeview1.refresh;四。如何批量处理TreeView结点使用TreeView的items属性的BeginUpdate和EndUpdate方法，例：TreeView1.items.BeginUpdate;for i:=0 to TreeView1.items.count-1 dobegin//将每个结点的文字改成为小写字母TreeView1.items[i].text:=lowercase(TreeView1.items[i].text);end;TreeView1.items.EndUpdate;五。实现TreeView结点拖拽的实例下面的程序片段演示了如何实现拖拽treeview构件结点的例子{鼠标按下时执行的语句}procedure TForm1.Treeview1MouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin{判断左键按下并且鼠标点在一个结点上开始实现拖拽}if ( Button = mbLeft ) and( htOnItem in Treeview1.GetHitTestInfoAt( X, Y ) ) thenbeginTreeview1.BeginDrag( False );end;end;{鼠标拖动执行语句}procedure TForm1.Treeview1DragOver( Sender, Source: TObject;X, Y: Integer; State: TDragState; var Accept: Boolean);varNode : TTreeNode;beginif Source = Treeview1 thenbeginNode := Treeview1.GetNodeAt( X, Y ); {取当前结点}if Node <> nil then {当前结点不为空才能实现拖拽，accept:=true}Accept := true;end;end;{鼠标释放时执行的语句}procedure TForm1.Treeview1DragDrop( Sender, Source: TObject;X, Y : Integer );varTempNode : TTreeNode;AttachMode : TNodeAttachMode;beginif Treeview1.Selected = nil thenExit;AttachMode := naAddChild; {设置结点移动模式，设移动结点为子结点}{ 注意在这里存在一个bug,当移动结点时，如果目标结点没有子结点，}{ 则加入的新的子结点会失败，所以先在当前目标结点的下面 }{ 加入一个临时子结点，移动完毕后，再将临时结点删除 }Treeview1.Items.BeginUpdate;tryTempNode := Treeview1.Items.AddChild( Treeview1.DropTarget,'Temp' );try{ 移动选中的结点到目标结点 }Treeview1.Selected.MoveTo( Treeview1.DropTarget, AttachMode );finallyTempNode.Free; { 不要忘了释放临时结点 }end;finallyTreeview1.Items.EndUpdate;end;end;
 
   

Answer 3

强大的树型编程控件TeeTree1.01
今天要介绍给大家的是由出品著名的TeeChart（被Delphi 3、4收录在内）的公司出品的TeeTree。
让我们来看看TeeTree有些什么样与众不同的特性？
1.体积小。它只让你的应用程序增加100kB左右的代码。
2.可以适用于多种应用。诸如，组织结构图、流程图、替代常规的TreeView控件和网络结构图等。
3.百分之百实现了标准TreeView的所有功能。
4.提供所有的源代码。TeeTree提供了源代码，有了源代码，你就可以做很多事情，对于你不满意的地方可以修改。比如说，TeeTree有一个运行时修改的编辑器，可以让用户在程序运行时修改特性，这个功能很棒，不过原来提供操作的界面是英文的，现在只要花点时间，就可以改成中文的。
5. DBTree控件支持数据库连结。比如Table、TQueny，并且提供四种方法来读入记录。
6.在IDE环境中可以直接编辑TeeTree中所有元素。你只要用鼠标双击某个元素，就可以修改它的属性，诸如形状、颜色、文字内容等。这里修改属性的功能在运行阶段同样有效，只要你愿意给用户提供运行阶段的修改功能。
7.强大的打印功能。TeeTree为打印设计了不少命令，诸如页边留白、方向、打印预览窗口等都可以通过程序来控制，并且是一种真正的“所见即所得”。打印预览功能可以在运行阶段提供给用户，让用户来设置很多与打印相关的特性。
8.支持将内容输出到文件和剪贴板。
9.支持存为二进制格式文件。如果你觉得将TeeTree的内容存为静态的图片还不够，那么可以将其存为TeeTree特有的TEE格式。这是一种二进制编码格式，类似于Delphi自己的DFM格式。这样的好处是适合基于Web的应用。
10.自由的缩放和滚动。TeeTree支持从5％到1000％的放大和缩小，在运行时，你可以通过按住鼠标右键来移动Tree。这和TeeChart一样，给你的感觉是很自如，没有任何束缚。
11.渐变色的背景。如果你用过TeeChart，那么一定会被它独有的渐变色背景吸引，因为那样可以增加视觉效果。这一特性现在也被用到了TeeTree中。除了渐变色背景，你还可以用图片做背景，图片的排列方式可以选择平铺或根据实际尺寸缩放。背景和图片可以一并打印出来。
12.每一棵Tree可以有不止一个根节点。这在传统的TreeView控件中是不可能的，但在TeeTree中是完全可行的。因为在一个Tree的Panel中可以同时放置几个Tree，所以一切不可能的事就一下子变得简单了。
13.在运行时刻，每个节点都可以被选中，或者展开和收起。这一切可以通过代码和鼠标操作来实现。“鼠标选择”可以只允许选中一个或者同时选中多个。
14.完全支持拖放。节点可以被拖放或者从一个父类对象移动到另一个父类对象。
15.每个节点都可以是一个选择框。使用过IE4的选项设置吗？有点类似Tree的结构，但它不是一个真正的Tree。你现在可以用TeeTree制作自己的选项树了。
16.在TeeTree中，每个节点（Node）都是一个Delphi（或C＋＋Builder）的对象。你可以在Object Inspector中观察它们。如果你不能直接用鼠标选中它们也没有关系，你可以在Object Inspector上方的下拉框中去寻找，就象Tfield对象那样。
17.每一个节点的形状可以完全由用户定制。可以指定以下属性：字体、字体阴影、字体间距、颜色、边框、背景类型、渐变色、阴影、光标形状、形状、文本对齐方式、图片位置等。同时，节点的文本属性因为是Tstring对象，所以节点的文本可以是多行文本。
18.每个节点可以和别的节点相连，这是通过称之为“连结”来实现的。这里的“连结”是一种特殊的形状，可以显示箭头来表示连结的方向。同样，“连结”也是完全可以定制的，包括形状、大小、从哪里到哪里。
19.TeeTree支持很多事件。对于每个节点有：
OnSelected 被选择
Un—selected 被不选择
Clicked 鼠标单击
Double—clicked 鼠标双击
Expanded 扩展
Collapsed 收起
对于Tree有：
OnZoom 放大缩小时
OnScroll 滚动时
OnDraw 画时
OnDragDrop 拖放时
OnNewShape 新的类型时
OnNewConnection 新的连结时
OnMouse 鼠标事件时
关于TeeTree的主要特性介绍完了，如你有心动的感觉，可以到www.teemach.com站点去下载这套TeeTree控件

Answer 4

树形图(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操作，与标准的拖放操作使用方法一样。
以上具体函数的使用细节可以参考联机帮助