TreeView展示结构清晰,层次分明,常用于程序界面设计中。
1、 启动Delphi7开发环境,在默认工程的Form1窗体中添加一个TreeView1控件,该控件位于Win32组件面板上,用于实现树形结构的数据展示与操作功能。
2、 在Form1窗体的OnShow事件中编写代码,为TreeView1控件添加TreeNode节点,具体实现如下所示。
3、 var
4、 在树形视图中添加一个名为信息的根节点,作为第一个子项。
5、 在树形视图中,将子信息1作为子节点添加到指定的父节点下。
6、 在树形视图中,将子信息2作为子节点添加到指定的父节点之下。
7、 重写并表述
8、 首个参数为兄弟节点,因仅存在一个根节点,故传入nil。
9、 第二个参数是节点的名称字符串
10、 将子节点添加至根节点,首参数指定父节点,即前述的根节点。
11、 第二个参数是节点的字符串名称
12、 按F9运行程序,TreeView1将正常显示节点信息,点击根节点左侧的加号可展开子节点。添加节点后,还可追加一行代码以实现更多功能。
13、 程序运行时,调用 FullExpand 方法可使树形视图的所有节点默认全部展开。
14、 为TreeView1控件添加点击响应功能,需在对象检查器的事件选项卡中定位到OnClick事件,双击该事件进入代码编辑界面,随后插入相应的处理代码即可完成设置。
15、 按F9运行程序,点击TreeView1中的节点将弹出显示对应信息的对话框。
