学习 TTreeView [12] - FullExpand、FullCollapse、GetNodeAt

为什么80%的码农都做不了架构师？>>>

本例效果图:

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;typeTForm1 = class(TForm)TreeView1: TTreeView;Button1: TButton;Button2: TButton;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);end;varForm1: TForm1;implementation{$R *.dfm}{我随意地使用了不同的方法去动态添加数据}
procedure TForm1.FormCreate(Sender: TObject);
varstream: TMemoryStream;
beginTreeView1.Align := alLeft;stream := TMemoryStream.Create;with TStringList.Create dobeginAdd('一连长');Add(#9+'一排长');Add(#9+#9+'一班长');Add(#9+#9+#9+'战士1');Add(#9+#9+#9+'战士2');Add(#9+#9+#9+'战士3');Add(#9+#9+#9+'战士4');Add(#9+#9+'二班长');Add(#9+#9+'三班长');Add(#9+'二排长');Add(#9+'三排长');Add('二连长');Add('三连长');SaveToStream(stream);Free;end;stream.Position := 0;TreeView1.LoadFromStream(stream);stream.Free;
end;procedure TForm1.Button1Click(Sender: TObject);
beginTreeView1.FullExpand;(Sender as TButton).Caption := '全部展开';
end;procedure TForm1.Button2Click(Sender: TObject);
beginTreeView1.FullCollapse;(Sender as TButton).Caption := '全部关闭';
end;procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
varnode: TTreeNode;
beginif Boolean(TreeView1.GetNodeAt(X,Y)) thenbeginnode := TreeView1.GetNodeAt(X,Y);Text := node.Text;end;
end;end.

转载于:https://my.oschina.net/hermer/blog/319039

学习 TTreeView [12] - FullExpand、FullCollapse、GetNodeAt相关推荐

深度学习（12）TensorFlow高阶操作一: 合并与分割
深度学习(12)TensorFlow高阶操作一: 合并与分割 1. concat 2. stack: create new dim 3. Dim mismatch 4. unstuck 5. spli ...
Linux学习笔记12——配置ftp、squid、Tomcat、Samba、MySQL主从
Linux学习笔记12 Linux学习笔记12 配置FTP服务配置pure-ftpd 开机启动上传下载文件配置vsftpd CentOS 70安装配置Vsftp服务器搭好vsftp之后出现55 ...
OpenCV3学习（12.5） opencv实现粒子滤波目标跟踪
OpenCV高版本已经把粒子滤波的CV方面的condensation算法给去掉了,以前学的condensation算法不能用C++开发还是只能用C版本,(OpenCV3学习(12.4) 粒子滤波Con ...
golang学习笔记12 beego table name `xxx` repeat register, must be unique 错误问题
golang学习笔记12 beego table name `xxx` repeat register, must be unique 错误问题今天测试了重新建一个项目生成新的表,然后复制到旧的项目 ...
分享Silverlight/WPF/Windows Phone/HTML5一周学习导读(12月12日-12月18日)
分享Silverlight/WPF/Windows Phone/HTML5一周学习导读(12月12日-12月18日) 本周Silverlight学习资源更新 Silverlight学习小记阿里山地方 ...
HALCON 20.11：深度学习笔记(12)---语义分割
HALCON 20.11:深度学习笔记(12)--- 语义分割 HALCON 20.11.0.0中,实现了深度学习方法. 本章解释了如何使用基于深度学习的语义分割,包括训练和推理阶段. 通过语义分割, ...
台大李宏毅Machine Learning 2017Fall学习笔记 (12)Why Deep?
台大李宏毅Machine Learning 2017Fall学习笔记 (12)Why Deep? 本博客整理自: http://blog.csdn.net/xzy_thu/article/detail ...
编程英语：常见代码错误 error 语句学习（12）
编程英语:常见代码错误 error 语句学习(12) error 1:Unit file format error 单元文件格式错误 error 2:Constant and case types d ...
Kotlin学习笔记12——数据类和密封类
Kotlin学习笔记12--数据类和密封类前言数据类在类体中声明的属性复制 componentN 解构声明密封类尾巴前言上一篇,我们学习了Kotlin中的拓展,今天继续来学习Kotli ...
Python学习日志12 - 办公自动化
Python学习日志 RBHGO的主页欢迎关注温馨提示:创作不易,如有转载,注明出处,感谢配合~ 目录文章目录 Python学习日志目录前言进入正题 Python学习日志12课 - 办公自动 ...

学习 TTreeView [12] - FullExpand、FullCollapse、GetNodeAt

学习 TTreeView [12] - FullExpand、FullCollapse、GetNodeAt相关推荐

最新文章

热门文章