[100分]求遍历窗口内所有控件的方法。-CSDN论坛

CSDN论坛 > Delphi > VCL组件开发及应用

[100分]求遍历窗口内所有控件的方法。 [问题点数：100分，结帖人GYQ2HPP]

一键查看最优答案

确认一键查看最优答案？

本功能为VIP专享，开通VIP获取答案速率将提升10倍哦！

取消

开通vip会员

⋅ Wafer服务端SDKPHP小程序的执行原生SQL ⋅win2008r2 + iis7.5 IE打开网页不显示照片 ⋅请教delphi2010自带的 ribbon控件字体大小怎么调整 更多帖子 关注私信空间博客 微笑的水 本版专家分：61 结帖率 100%: 遍历取得窗口内所有控件的总数，
以及窗口内容器控件中的控件内容。

即是取得窗体内所有的控件信息。类似delphi 中的 object treeview的效果。

恳求各位帮忙谢谢！

0 2005-09-28 16:38:40

回复数 3 只看楼主引用举报楼主

⋅在深圳找工作中…… ⋅求助：Flash初始化问题 ⋅急求：Scrollpane中怎么置入duplicateMovieClip出来的Movie Clip对象？ 更多帖子 关注私信空间博客 楚人无衣 本版专家分：18716 黄花 2004年5月 Delphi大版内专家分月排行榜第二 2004年4月 Delphi大版内专家分月排行榜第二: var
  i: Integer;
begin
  for i := 0 to ControlCount - 1 do
    Memo1.Lines.Append(Controls[i].Name);
end;

0 2005-09-28 16:43:46

只看TA 引用举报 #1    得分 0

⋅cxGrid从表单元格编辑状态的问题，请教高手。。。 ⋅BDS 2006怎么安装ActiveX组件啊？？？？？？？？？晕死！ ⋅#########关于软件平台######### 更多帖子 关注私信空间博客 xixuemao 本版专家分：18643 红花 2005年9月 Delphi大版内专家分月排行榜第一 蓝花 2005年10月 Delphi大版内专家分月排行榜第三: procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:= 0 to self.ComponentCount - 1 do
  begin
    listbox1.Items.Add(self.Components[i].ClassName);
  end;
end;

0 2005-09-28 16:45:21

只看TA 引用举报 #2    得分 100

⋅ Wafer服务端SDKPHP小程序的执行原生SQL ⋅win2008r2 + iis7.5 IE打开网页不显示照片 ⋅请教delphi2010自带的 ribbon控件字体大小怎么调整 更多帖子 关注私信空间博客 微笑的水 本版专家分：61: 在我刚刚在delphibbs 找到答案的时候，两位五星回答了这个问题。
没想到两个星星的竟然没答对。。。。。估计是觉得太容易了。。。
呵呵 100分给3楼了，谢谢你。

0 2005-09-28 17:00:39

只看TA 引用举报 #3 得分 0

收藏帖子