如上

解决方案 »

  1.   

    强大的树型编程控件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控件
      

  2.   

    TREEVIEW的使用
    基本信息:
    TreeView 是一个显示树型结构的控件
    每一个节点都是一个新类
    使用具有代表性
    每个节点都有四个值:
    TEXT:显示文字 Image Index:显示图形序号
    Selected Index:
    State Index:
    (1)建立目录项(本例中使用的TREEVIEW名称为:TvwTips)
    增加根目录下的节点:(节点)
    var
    CatNode : TTreeNode; //先建立一个TREEVIEW使用的子对象
    begin
    TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上
    { 在根标题下建立一个新的子标题 }
    CatNode := TvwTips.Items.AddChild(TvwTips.Items.GetFirstNode'New Category' );
    CatNode.ImageIndex := 1;
    CatNode.SelectedIndex := 2;
    CatNode.EditText; { 允许用户改变这个标题 }
    end;
    增加下一级目录(内容):
    var
    ParentNode
    TipNode : TTreeNode; //先建立TREEVIEW使用
    的子对象
    VersionNum : Integer;
    begin
    TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上
    VersionNum := TMenuItem( Sender ).Tag; { Ver num of new tip }
    ParentNode := TvwTips.Selected; { 取出当前的选中节点 }
    if ParentNode.Level = nlTip then{ Parent cannot be a tip node }
    ParentNode := TvwTips.Selected.Parent;
    TipNode := TvwTips.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;
    (2)说明
    TvwTips.Items.GetFirstNode 返回TREEVIEW的第一个节点
    函数类型为
    :TTreeNode
    TvwTips.Items.Count 返回当前TreeView的全部节点数
    整数
    TvwTips.Selected.Level 返回当前选中节点的在目录树中的级别
    根目录为0
    TvwTips.Selected.Parent 返回当前选中节点上级节点
    函数类型为
    :TTreeNode
      

  3.   

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