打开APP
userphoto
未登录

开通VIP,畅享免费电子书等14项超值服

开通VIP
(8)Delphi TreeView使用方法

TreeView使用笔记

 

 

 

  TreeView由节点构成,建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象,这是一个TTreeNode集。

 

 

 

一、针对TTreeNodes,也就是 TreeView.Items,有这些属性:

 

1count,节点个数。

 

2item[index]  ,通过index得到节点。

 

 

 

二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作有:

 

  AddFirst添加第一个根节点。由此函数添加的节点总排在前面,除非后来又使用此函数添加了一个节点,则后添加的节点将排在前面。该函数返回新添加的节点。

 

 AddChildFirst添加第一个子节点,要求有父节点作为其参数。返回新添加的节点。

 

  AddChild添加一个子节点,要求有父节点作为其参数。返回新添加的节点。

 

  Add添加一个兄弟节点,要求有兄弟节点作为其参数。返回新添加的节点。

 

 

 

三、针对TTreeNodes,也就是 TreeView.Items,常用的得到节点的操作有:

 

  GetFirstNode()得到根节点。然后配合TTreeNode.GetNext(),就可以访问所有的节点。

 

 

 

四、建树举例:  

 

var

 

 root_node,cur_node:TTreeNode;

 

begin

 

 root_node:=AddFirst(nil,根节点1);

 

 cur_node:=addChildfirst(root_node,nil,根节点1_child1);

 

 add(cur_node,根节点1_child2);

 

 root_node:=Add(nil,根节点2);

 

 AddChildFirst(root_node,根节点2_child1);  

 

end;  

 

五、事件触发:

 

 当从一个节点跳到另一个节点,会触发TTreeView.OnChange事件。该事件中,将传递node,即当前被选中的节点。 

 当修改一个节点的text时,会触发TTreeView.onEdit事件。  

 

六、将节点和节点所对应的数据联系起来

 

 对于每个TTreeNode,有个Data属性,可以存放一个指针。我们可以利用这个域来存放与节点对应的自己的数据。

 

1.我们先定义一个数据结构,作为记录我们要记录的数据。如:

 

type   PMyData=^TMyData;

 

 TMyData=Record

 

   sFName:string;

 

   sLName:String;

 

   nIndex:integer;

 

  end;

 

 

 

2.然后,创建数时,将节点和节点数据联系起来:

 

procedure TForm1.Button1Click(Sender:TObject);

 

var

 

  myshuju:PMyData

 

 cur_node:TTreeNode;

 

begin

 

 New(myshuju);  //记住,一定要先分配内存。有几个节点,就要分配几次内存。

 

 myshuju^.FName:=Edit1.Text;

 

  Myshuju^.LName :=Edit2.Text;

 

  TreeViewIndex :=StrToInt(Edit3.Text);

 

  with TreeView1do

 

  begin

 

   cur_node:=items.AddFirst(nil,first);

 

   cur_node.data:=myshuju;

 

  end;

 

end;

 

 

 

3.当我们选中一个节点时,就可以使用我们的数据了。

 

procedure TForm1.TreeView1Change(Sender:TObject;Node:TTreeNode);

 

begin

 

   ifnode.data<>nil then

 

   self.label1.caption:=pmyData(node.data)^.Fname+pmyData(node.data)^.Lname

 

end;

 

 

 

4.内存释放

 

procedure TForm1.ListView1Deletion(Sender:TObject; Item: TListItem);

 

begin

 

 Dispose(Item.Data);

 

end;

 

 

 

七、一般使用流程:

 

1、添加全局变量:

 

  b_first:boolean;  //记录是否是第一次访问节点,因为此时数据还未准备好,而一旦访问节点就会触发OnChange事件,在此事件处理函数中也许会出错。

 

2、在FormCreate中,

 

  a、设置b_first:=true;

 

  b.创建数并将节点与数据联系。

3、在FormShow中设置b_first:=false;

 

4.在事件OnChange中处理节点被选中事件。

 

5.Edit中处理节点被修改Text事件。并调用OnChange.

 

6.TreeView.Destory中释放Data 中指向的内存空间。 

 

 

另一篇相关介绍:  

 

  每一个节点下子节点形成这一节点的Items属性,当前节点有一个唯一的Index(TreeNodeIndex属性),用于说明子节点在Items中的位置,每一个节点下的子节点是顺序编号的,第一个是0,第二个是1,依次类推。用IndexOf方法获得子节点的顺序,绝对顺序(AbsoluteIndex)则是指从Treeview第一个项开始的顺序值,第一个是0,如此推下去。Item属性则根据Index的值返回当前节点的第Index个子节点。Count则表明属于此项的所有子节点的数量。用MoveTo方法将Item由一个位置移到另一个位置。

 

 Expanded属性表明是否所有的子项都全部展开(包括子项的子项),为True表示全部展开。IsVisible属性表明一个项是否在树中能被看到,如果树全部展开那么这个Item是肯定可以被看到。HasChildren属性表明一个项是否有子项。 GetFirstChild, GetLastChild,GetPrevChild, and GetNextChild分别返回当前项子项的第一个、最后一个和前一个、后一个项。GetNextSibling andGetPrevSibling则返回在同一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控件,加入几个图片,分别被Index0,1,…在TreeviewImage属性项填入你所加入的ImageList的控件名称。TreeNodeImageIndex表示节点未被选中时(Selected=nil)的图片序号,SelectedIndex表示节点被选中时图片序号。

本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报
打开APP,阅读全文并永久保存 查看更多类似文章
猜你喜欢
类似文章
【热】打开小程序,算一算2024你的财运
delphi中的TreeView
delphi Treeview用法
(8)对TreeView的遍历
TreeView 用法
关于TreeView控件的节点排序
Delphi下Treeview控件基于节点编号的访问
更多类似文章 >>
生活服务
热点新闻
分享 收藏 导长图 关注 下载文章
绑定账号成功
后续可登录账号畅享VIP特权!
如果VIP功能使用有故障,
可点击这里联系客服!

联系客服