遍历所有ControlCount
来源:互联网 发布:李洋演过过网络剧 编辑:程序博客网 时间:2024/05/14 12:29
procedure TForm1.FormCreate(Sender: TObject);
procedure pScanWinControl(mWinControl: TWinControl);
var
I: Integer;
begin
for I := 0 to mWinControl.ControlCount - 1 do
begin
Memo1.Lines.Add(mWinControl.Controls[I].Name); //try
{ TODO }
if mWinControl.Controls[I] is TWinControl then
pScanWinControl(mWinControl.Controls[I] as TWinControl);
end;
end;
begin
pScanWinControl(Self);
Memo1.Lines.Add('--'); //try
pScanWinControl(GroupBox1);
end;
procedure pScanWinControl(mWinControl: TWinControl);
var
I: Integer;
begin
for I := 0 to mWinControl.ControlCount - 1 do
begin
Memo1.Lines.Add(mWinControl.Controls[I].Name); //try
{ TODO }
if mWinControl.Controls[I] is TWinControl then
pScanWinControl(mWinControl.Controls[I] as TWinControl);
end;
end;
begin
pScanWinControl(Self);
Memo1.Lines.Add('--'); //try
pScanWinControl(GroupBox1);
end;
阅读全文
0 0
- 遍历所有ControlCount
- ComponentCount和ControlCount区别
- 遍历所有子集
- 遍历所有窗口句柄
- 遍历所有菜单项
- 遍历所有路径
- 遍历所有顶层窗口
- 遍历本地所有文件
- 遍历目录所有文件
- 怎样遍历所有控件
- 遍历所有窗体控件
- 遍历所有文件
- JSONCPP 遍历所有值
- 遍历所有磁盘文件
- Delphi遍历所有控件
- JSONCPP 遍历所有值
- javascript遍历所有标记
- js遍历所有cookie
- [2017.11.01]作业07(c)
- 组件之间的通信
- HTML 里面Array 的对象方法
- 【BZOJ2783】【DFS】[JLOI2012]树 题解
- Spring-BeanFactory
- 遍历所有ControlCount
- 自定义弧形进度条,百分比的值在变化
- 软件测试-理论学习(一)
- poj 3087 G
- O
- 公路乘车
- python爬虫案例——证券之星股票数据采集
- 内联函数和宏
- Jzoj4888 最近公共祖先