Delphi之TreeView
TreeView是Delphi中使用频率比较高的一个控件,虽然使用次数很多,但总结不够。借着这次做GDW原型的机会总结一下,写的过程中也会参考网上的博文。
TTreeView、TTreeNodes和TTreeNode
TTreeView由节点构成,建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象,这是一个TTreeNode集。
常用的属性
- Count,结点个数;
- Item[index],通过index得到结点;
- TTreeNode.Data,指向一个指针,可以存对象,存指针,也可以存整数;
- TTreeNode.Text,树结点的文本;
- TTreeNode.ImageIndex,TTreeNode.SelectedIndex,分别是树结点图标序号,树结点选中时图标序号,用于设置树结点的图标;
- TTreeNode.Expanded属性表明是否所有的子项都全部展开;
- TTreeNode.HasChildren属性表明一个项是否有子项;
- TTreeNode.Focused属性确定焦点是否落在此节点上,被Focus时会一个标准的方框围住,只能有一个节点会被聚焦。
- TTreeNode.Selected属性表明一个节点是否被选中,同样只有一个节点会被选中。
常用的方法
- GetFirstNode 得到根结点;
- TTreeNode.GetNext 得到本节点的下一个结点,配合GetFirstNode可以遍历整个树;
- AddFirst 添加第一个根节点,此函数添加的节点总排在前面,除非后来又使用此函数添加了一个节点,则后添加的节点将排在前面。返回新添加的节点。
- 然后以此为基础,添加此项的子节点。
- 删除节点:Treeview.Selected.Delete
- 编辑节点内容:Treeview.Selected.EditText
- 为了提升效率,避免界面大幅闪动,最好使用TreeView.Items.BeginUpdate 和 TreeView.Items.EndUpdate 方法;
设置树结点图标
- ImageIndex:在常态时选用的图的序号;
- SelectedIndex:当节点被选中时在TimageList 中选什么样的图象;
一段代码
Items.BeginUpdate;
Items.Clear;
// 建立第一层节点
AddElemntType2Tree(AElementTypeID, AAddNoChildNode);
// 建立第二层节点
if Items.GetFirstNode <> nil then
begin
oNode := Items[0]; // 选择第一个构件类型结点
while oNode <> nil do
begin
UpdateTreeNode(oNode, ASelectedElementID);
oNode := oNode.getNextSibling;
end;
end;
// 展开
if Selected <> nil then
Selected.Expanded := True
else if Items.Count > 0 then
begin
oNode := Items.GetFirstNode;
Assert(oNode <> nil);
// 选中第一个节点的第一个子节点(若存在则为第一个构件类型下的第一个构件)。
Selected := oNode.getFirstChild();
// 若没有选中构件,则选中第一个构件类型节点,否则展开节点。
if Selected = nil then
Selected := oNode
else
Selected.Expanded := True;
end;
Items.EndUpdate;
Delphi之TreeView的更多相关文章
- delphi中Treeview的使用介绍
今天重点学习了TreeView的使用方法,基本的已经写了,现在主要想说的是如何显示数据库的资料,今天只是做了个较简单的例子,一个父节点下显示数据库中某个field的值.代码如下: procedure ...
- delphi中TreeView使用(转)
delphi中TreeView使用(1) TreeView由节点构成,建树通过对TreeView.items属性进行操作.Items是一个TTreeNodes对象,这是一个TTreeNode集. 一. ...
- delphi 获取 TreeView选中的文件路径
//获取 TreeView选中的文件路径 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, G ...
- delphi 去掉TreeView水平滚动条
使用API函数:声明 FUNCTION ulong ShowScrollBar(ulong hwnd,ulong wBar,ulong bShow) LIBRARY "user32. ...
- Delphi下Treeview控件基于节点编号的访问
有时我们需要保存和重建treeview控件,本文提供一种方法,通过以树结构节点的编号访问树结构,该控件主要提供的方法如下: function GetGlobeNumCode(inNode:T ...
- Delphi下Treeview控件基于节点编号的访问1
有时我们需要保存和重建treeview控件,本文提供一种方法,通过以树结构节点的编号访问树结构,该控件主要提供的方法如下: function GetGlobeNumCode(inNode:T ...
- delphi学习treeview中从表列名和数据添加为目录并双击自动选中
1 unit Unit2; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, Syst ...
- 在DELPHI中用TreeView控件从数据库中动态装载信息
1.PInfo表结构ID VARCHAR(50)FullName VARCHAR(50)ParentID VARCHAR(50) 2.Unit文件unit Info; interface uses ...
- delphi treeview 鼠标移动显示hint信息
procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var Nod ...
随机推荐
- plugin
http://wicky.nillia.ms/headroom.js/ http://makotot.github.io/sidebar/ http://www.nodebeginner.org/in ...
- Es kibana
http://kibana.logstash.es/content/kibana/v4/setup/production.html
- Qt_chartdirector图形开发
ChartDirector 是一款商业的图表库,有多种语言的版本,使用它做的图表非常的精 细漂亮,提供免费版本,但会出现logo信息.网上有很多关于它的破解方法. 一.产品优点 高效快捷 采用多线程结 ...
- Java实现KMP算法
/** * Java实现KMP算法 * * 思想:每当一趟匹配过程中出现字符比较不等,不需要回溯i指针, * 而是利用已经得到的“部分匹配”的结果将模式向右“滑动”尽可能远 * 的一段 ...
- POJ3041 Asteroids(二分图最大匹配)
题目链接. 分析: 暂略. AC代码: #include <iostream> #include <cstdio> #include <cstring> #incl ...
- android判断应用是否有某个权限
1) 判断应用是否具有某个权限 PackageManager pm = getPackageManager(); boolean permission = (PackageManager.PERMIS ...
- vimrc 配置支持backspace
在vimrc中添加: set nocompatible set backspace=indent,eol,start
- pdf打印乱码问题
问题: 使用Adobe Reader将一份pdf文件通过我的虚拟打印机输出后(输出的是中间文件,等同于EMF文件),查看的时候发现有时候是乱码.最简单的必现步骤: 1.使用Adobe Reader打开 ...
- CSS padding margin border属性详解【转载】
本文转载自:http://www.cnblogs.com/linjiqin/p/3556497.html ,感谢相关博主. 图解CSS padding.margin.border属性 W3C组织建议把 ...
- mongodbOperator
mongodb创建数据库表语句 db.createCollection("CollectionName or tableName"); db.createCollection(&q ...