- 1、本文档共27页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
delphi树的用法
一:TreeView.Items[0].Expanded := True; // 展开第一个节点二:TreeView.Items[0].Item[0].Selected := True; // 移动到第一个节点的第一个子节点 ?找当前节点的下一个节点,按序号找如下:if treeview1.Selected.GetNextnil thentreeview1.Selected.GetNext.Selected:=true;TreeView1.SetFocus;找当前节点的下一个同层兄弟如下:if treeview1.Selected.getNextSiblingnil thentreeview1.Selected.getNextSibling.Selected:=true;TreeView1.SetFocus;TreeView.Selected.getPrevSibling ?//当前选中节点的上一个兄弟节点TreeView.Selected.Parent ? ? ? ? ?// ?当前选中节点的父节点 ?getfirstchild是跳到该节点子结点中的第一个getlastchild是跳到该节点子结点中的最后一个如果你是想跳到同层兄弟结点的第一个if treeview1.selected.parentnil thentreeview1.selected.parent.getfirstchild.selected:=trueelsetreeview1.items.item[0].selected:=true;如果你是想跳到同层兄弟结点的最后一个if treeview1.selected.parentnil thentreeview1.selected.parent.getlastchild.selected:=trueelsetreeview1.Items.Item[treeview1.Items.Count-1].Selected:=true;TreeView的使用方法 基本信息:TreeView 是一个显示树型结构的控件,每一个节点都是一个新类,使用具有代表性每个节点都有四个值:TEXT:显示文字 Image Index:显示图形序号Selected Index:State Index:(1)建立目录项(本例中使用的TREEVIEW名称为:TvwTips)增加根目录下的节点:(节点)varCatNode : TTreeNode; //先建立一个TREEVIEW使用的子对象beginTvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上{ 在根标题下建立一个新的子标题 }CatNode := TvwTips.Items.AddChild( TvwTips.Items.GetFirstNode,New Category );CatNode.ImageIndex := 1;CatNode.SelectedIndex := 2;CatNode.EditText; { 允许用户改变这个标题 }end;增加下一级目录(内容):varParentNode, TipNode : TTreeNode; //先建立TREEVIEW使用的子对象VersionNum : Integer;beginTvwTips.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 }EnableTreeV
您可能关注的文档
- CCNA 思科章节考试题及答案《数据链路层》.doc
- CCNA 第二 第九章答案.doc
- CCNA-Exoration-网络基础知识-第二章练习及答案.doc
- CCNA1_第 网络规划与布线.doc
- CCNA中文笔11章.doc
- CCNA第一学六章.doc
- CCNA第三学AN 交换和无线第一章章节练习.doc
- CEAC网络工 - 电子邮件系统解决方案 参考试卷.docx
- CEGM职业教证简介.doc
- CET-4选词的出题特点与解题思路.doc
- 教师资格之中学化学学科知识与教学能力综合提升练习题包括详细解答.docx
- 教师资格之中学化学学科知识与教学能力综合提升练习题库含答案讲解.docx
- 教师资格之中学化学学科知识与教学能力综合提升模拟题库提供答案解析.docx
- 教师资格之中学化学学科知识与教学能力综合提升练习试题附答案详解.docx
- 教师资格之中学化学学科知识与教学能力综合提升练习试题含答案讲解.docx
- 2023年教师资格之中学化学学科知识与教学能力试卷附答案详解.docx
- 2023年教师资格之中学化学学科知识与教学能力测试卷和答案.docx
- 2023年教师资格之中学化学学科知识与教学能力测试卷附带答案.docx
- 2023年教师资格之中学化学学科知识与教学能力模拟卷.docx
- 2023年教师资格之中学化学学科知识与教学能力检测卷附答案.docx
文档评论(0)