TreeView的使用计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:28:22
来源 100Test.Com百考试题网

　　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.
　　增加下一级目录(内容):百考试题－全国最大教育类网站(100test.com)
　　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

　　编辑特别推荐:

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　如何应付二级考试中的公共基础知识

　　全国计算机等级考试上机考试应试技巧

　　百考试题教育全国计算机等级考试在线测试平台