说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

TREEVIEW的使用-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
TREEVIEW的使用-Delphi资料

基本信息:

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

VB如何为你的应用程序设置热键? VB如何隐藏鼠标指针 VB如何用api检查任务栏中有多少种输入法 VB如何在函数中传递数量不定的参数? VB使用 kb_event 函数模拟键盘操作 VB使用API获取颜色 VB使用标签控件调出浏览器 VB使用调用外部程序函数实现API函数高级功能 未公开API函数揭秘——通用对话框-VB资料 显示文件属性对话框-VB资料 VB用 API 打开打印对话框 VB用API函数改进ListView控件的显示效果 VB用API函数控制光驱的开关 VB用注册表保存数据(VB函数篇) 有关Tray系统盒的VB API函数 在VB中调用API函数动态改变及恢复屏幕设置 在VB中控制Ctrl+Del+Alt键 在VB中使用API函数 (之二) 在VB中使用API函数 (之三) 在VB中使用API函数 (之四) 在VB中使用API函数 (之五) 在VB中使用API函数 (之一) 在VB中用API实现多媒体 VB怎样用VB在应用程序中调用API VB怎样在DELPHI中使用API函数 指定文件夹-VB资料 VB5中注册控件三法 Bug:维护 Internet Transfer Control 之 Username 及 Pass VB对低层硬件访问控制 HitTest的妙用 -VB资料 ListBox项的控制-VB资料 不知大家有没有测试过,似乎ADO的速度比DAO慢很多! 想请问各位朋友一个问题 想请问各位朋友一个问题 清那位高手指点一下 上海人,请讲信誉,我已忍无可忍了(放分) 修改计算机的名字导致SQL7.0不能启动,请问有什么修补的方法而不用重新安装SQL? c++ primer 候洁译与潘爱民译那个好些?? 为什么我的机会突然黑屏,但主机其实又没有关呢? 各位大虾,我是菜鸟,请问? 客户端的linux怎么才能通过域和代理的验证?? 加QQ:82439610 我来建个ORACLE、PL/SQL的QQ群! 大家多交流! 菜鸟问题:PHP中的变量使用前一定得声明吗?? 加QQ:82439610 我来建个ORACLE、PL/SQL的QQ群! 大家多交流! 用光驱看电影时经常说“显示器刷新率超出范围”,然后就只能重启,这是怎么回事? 加QQ:82439610 我来建个ORACLE、PL/SQL的QQ群! 大家多交流! 请问哪里可以免费下载到linux的源代码啊?谢谢! 如何择书与读书? 加QQ:82439610 我来建个ORACLE、PL/SQL的QQ群! 大家多交流! 我想转行到计算机软件,您有什么建议呢? 各位高手,看看这个贴!!谢谢 菜鸟问题:请教red hat下用.iso的安装镜像文件升级软件包的问题 这个中秋霉到家了,看看还有没有比我更霉的,同时祝愿自己能快点度过难关好起来!!!!!!!!!! 帮忙看看这个SQL语句什么地方错了? 此上机题的程序代码应该怎么写 想找个unix高手,有没有啊? 那里有java的帮助手册下载?类似于萎软的msdn & 0xFFF0是什么意思 银行存钱手续费问题 计算机网络——熊桂喜 译 INPUT如何用图片作背景? 谁能给我贴一个 Regular 动态 mfc-dll的例子! 函数怎样调用? 在线的各位高手,请问哪里可以下到SYBASE11.9.2安装程序? EJB-QL问题,怎么使用模糊查询LIKE? 请进 为什么我装了声卡驱动程序后,只能听到声音,却说不了话? rh9中用户目录下的.profile为什么不起作用? 我是专学PL/SQL编程的,但是我觉得这个不像是真正意义的编程! 大家进来看看吧! VC6下如何向Oracle中添加和读取BLOB型的数据? 一个关于Delphi6和Delphi7的问题 请问怎么知道C# MSDN 里的每一个类,每一个方法是做什么用的? 问题挺多的?请不吝赐教!都是小问题! 输入光标的移动问题 菜鸟请教:请问如何打包成jar和jad文件? 关于Oracle存储大量二进制数据的问题, 有武汉的朋友么! 加我qq 7095682 看完《美丽人生》 帮帮我 一条菜虫问一个很菜的问题? 当数据库中没有图片时候该怎么办 关于时间掩码? ‘您好 这是找你的钱’英语怎么说 您好,您在干嘛呢?用英语怎么说 您好,请问力所能及的英语怎么说. 早晨的东方怎么翻译 求翻译::我是来自于东方二中,我的爱好是画画,我喜欢打篮球,等等.翻译自我介绍!急用《《《《《 聚沉Fe(OH)3溶胶(正胶体),下列哪个电解质聚沉能力最强A.NaCl B.Na3PO4 C.Na2SO4 D.K2SO4 英语翻译例句:We already know U,the upper triangular matrix with the pivots on its diagonal.(U是上三角矩阵) 怎么快速提高语文及政史成绩? 求翻译pivot-and-jewel suspension是什么意思? pivot火柴人怎么可以火柴人说话呢,就是以文字的形式表达出来.要说什么就和漫画里的是一个行字.这个特效怎么搞,还有武器啊,那些特效素材哪里下? He has taken my heart hostage and it hurts.他要挟我的感情,令我很伤心。 印度央行再度加息抑通胀飓风袭击德国致多地交通瘫痪 乘客被困德国农场主检查马厩时发现自家马匹驮回美分析称受教育程度越高越易于维持婚姻“10.25”故意伤害案后续 重伤医企业家买富豪榜 富豪榜背后的秘密女护士遭劫持自救 劫持男子已被带走深圳故意杀人警察一审被判死缓 当庭表中央军委部署巡视工作 成立巡视工作领国际晚班车:中国军机连续3天飞越冲绳港媒:联合国作用无可替代 改革迫在眉历史的意味宁缺毋滥才能促进真正的繁荣一缕心香祭友人乡村教育的忧与思一个时代的碑铭吃“祸”从墨索里尼纪念碑说起哈市警方破获千克以上毒品案《出彩中国人》:书写普通人的中国梦全国集中销毁侵权盗版及非法出版物20奏响时代的强音风起纺织鬼手莫测悍将军魂之战神叶行巅峰诸子悲歌魔尊仙皇拿破仑欧洲之巅民国之风流人物天机之天行神师为了你变女生网游之极品教师凤山鸳鸯泉旅游黄河石林地质公园旅游澄江禄充景区旅游卢崖瀑布旅游平潭将军山旅游浙江美术馆旅游元朗旅游黑油山旅游小泊湖湿地旅游九层楼旅游藏经洞旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘