delphi中Treeview的使用介绍

楚天晴 發表於 2019-8-12 20:49:00

今天重点学习了TreeView的使用方法，基本的已经写了，现在主要想说的是如何显示数据库的资料，今天只是做了个较简单的例子，一个父节点下显示数据库中某个field的值。代码如下：
   procedure TMainForm.TreeviewShow(Sender: TObject);    var      node1,subnode1: TTreeNode;      i: Integer;    begin      Treeview1.Selected := nil;      node1 := Treeview1.Items.AddFirst(nil,'user');      ADOTable1.Active := True;
     while not ADOTable1.Eof do        for i := 0 to  ADOTable1.RecordCount - 1 do        begin          Treeview1.Items.AddChildObject(node1, ADOTable1.FieldByName('USERNAME').AsString, nil);          ADOTable1.Next;        end;    end;
使用的是ADO中的ADOTable1来完成。
心得：今天下午比较重要的心得或许就是当你在某个函数中写代码的时候，它会自动把那些不符合它返回值的函数功能屏蔽掉。打个比方，象Treeview1.Items.AddChildObject(node1, ADOTable1.FieldByName('USERNAME').AsString, nil);中的第二项，它要求的是返回String ,如果你使用得失ADODATASET的话，它就自动帮你屏蔽掉了FieldByName这个功能，因为返回的不是String，所以，在这种情况下最好是把你需要的函数在空白处得到在copy到里面去。
　　每一个节点下子节点形成这一节点的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表示节点被选中时图片序号。
    加入父节点使用的命令是Treeview.Items.AddFirst(nil,'father');里面的nil的意思是初始标记（不是0的意思，0已经代表了建立了一个关于节点的对象了，nil代表的是初始化时候的一个node）。在使用该函数来创建节点的时候，你会发现很多例子中都会建立一个TTreeNode对象来把刚才建立父节点的命令赋给这个对象，比如现在有个TTreeNode对象node1，那么就可以写成node1 := Treeview1.Items.AddFirst(nil,'father'),目的是把该节点的标识位置赋予node1，这里不需要再写多一个相同的AddFirst了，因为在赋予node1的同时就已经建立了这个父节点了。那为什么需要这个node1呢？当然，如果你只有一层节点没有子节点的话，可以不需要这个，这个node1主要是为了给建立子节点的时候给它一个标识，告诉系统这个子节点是属于哪个父节点的，命令如下reeview1.Items.AddChildObject(node1, 'child', nil);
 
 
delphi中TreeView使用常见问题
 
编程心得
1，在Delphi中，TreeView控件是一款很出色而且很常用的控件。
在使用过程中，了解到其TTreeNode对象的data属性存储相关数据很有用，一般情况下，我们先声明一个结构体以及其指针,例如：
type
  PMyRc = ^TMyRc;
  TMyRc = Record
    id:string;
    name:string;
    age:integer;
  end;
添加一个节点，显示信息为TMyRc的name，同时存储id，age。方法如下：
var
  p:PMyRc;
  i:integer;
begin
  Randomize;
  for i:= 0 to 9 do
  begin
  New(p);
  p.id:=inttostr(random(100));
  p.name:='name'+ inttostr(random(205));
  p.age:=random(90);
 // Caption := p.id+'  '+P.name + '   '+inttostr(p.age);
  TreeView1.Items.AddObject(nil,p.name,Tobject(p));
  //dispose(p);       如果在这里释放指针，id，age并不能存在树中，而是在这里就被释放了。应该在释放树的事件里书写。
  end;
end;
释放树的事件deletion，即使是删除也会执行这些代码。所以不用担心内存泄漏。但是如果不书写以下代码，或者用相关的方式释放内存，必定会造成内存泄漏。
procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin 
  dispose(pmyrc(node.data));
end;
访问某个树枝中的age值：
Pmyrc(TreeView1.Selected.data)^.age

</div>
<div id="MySignature" role="contentinfo">
好的代码像粥一样，都是用时间熬出来的 
来源：https://www.cnblogs.com/jijm123/p/11342485.html

頁: [1]

琼殿技术论坛's Archiver

delphi中Treeview的使用介绍