关于TREEVIEW的问题!!

Question

1）怎样在当前节点的上一层，当前层和下一层分别加入一个节点？2)怎样在加入节点时加入一个图标，在读取数据显示时也显示图标？

Answer 1

树的操作比较复杂我转个贴了你看看吧：
　树形图(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 Level24.排序
SortType决定什么时候进行排序；
TreeView.AlphaSort对节点进行排序，如果不能满足要求，你可以定义自己的CustomSort方法。5.Drag&Drop操作，与标准的拖放操作使用方法一样
----------------------------------------------
~@~ 我真的是一个头猪，不过会上网而已。 
 
作者： hedong (hedong) 编辑  
 2003-4-18 12:38:46  
3楼： 都让二楼说完了，我来段代码给楼主和一楼学习吧。树结构：部门人员    //  根节点
  |
  |______部门1
  |   |_________职员1
  |   |_________职员2
  |   |_________职员3
  |______部门2
      |_________职员1
      |_________职员2
      |_________职员3数据库结构:
  bmdm   bmmc    xm     bh
  001    部门1           0 
  001    部门1  职员1    0
  001    部门1  职员2    1
  002    部门2           0 
  003    部门3           0
  003    部门3  职员2    0
  003    部门3  职员3    1在数据库中建立一个上表，然后加入LoadTreeNode过程，在FormCreate调用即可
treeview中必须有一个根节点.procedure TfrmBMSZ.LoadTreeNode;
var
   rootNode, childNode: TTreeNode;
   NodeBM: array of TTreeNode;
   iBMCount, i: Integer;
   szBMDM, szBMMC, szZYMC: string;         // 部门职员名称
   szTemp: string;
begin
    if not DataSource1.DataSet.Active then Exit;
    i := 0;
    rootNode := Treeview1.Items[0];    //  加入部门信息
    with ADOQueryBM do
    begin
         Close;
         SQL.Add('Select bmdm, bmmc, xm from bmry where (bh = 0) order by bmdm');
         Open;
         Last;
         First;
         iBMCount := RecordCount;
         if iBMCount > 0 then       //部门数量
         begin
             SetLength(NodeBM, iBMCount);
             while not Eof do
             begin
                  szBMDM := FieldByName('bmdm').AsString;
                  szBMMC := szBMDM + ' ' + FieldByName('bmmc').AsString;
                  NodeBM[i] := Treeview1.Items.AddChild(rootNode, szBMMC);
                  NodeBM[i].ImageIndex := 1;
                  NodeBM[i].SelectedIndex := 1;
                  Inc(i);
                  Next;
             end;
         end;
         Close;
    end;    if i = 0 then Exit;       // i = 0表示没有部门信息
    // 加入职员信息到树
     i := -1;
     with DataSource1.DataSet do
     begin
         First;
         while not Eof do
         begin
             szBMDM := FieldByName('bmdm').AsString;
             szZYMC := FieldByName('xm').AsString;
             if (szBMDM <> szTemp) then
             begin
                  szTemp := szBMDM;
                  Inc(i);
             end
             else
             begin
                  childNode := Treeview1.Items.AddChild(NodeBM[i], szZYMC);
                  childNode.ImageIndex := 2;
                  childNode.SelectedIndex := 2;
             end;
             Next;
         end;     // while not Eof
         Close;
    end;  // with ADOQuery2
    Treeview1.FullExpand;
end;
 

Answer 2

搜索TREEVIEW，你就能看到很多关于它的用法！

Answer 3

1）怎样在当前节点的上一层，当前层和下一层分别加入一个节点？
这很容易实现啊
假设当前接点为node
treeview1.Items.Add(node,'当前层接点');
treeview1.Items.AddChild(node,'子接点');
treeview1.Items.add(node.parent,'父层接点');