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

[微笑的水]

遍历 取得 窗口内所有控件的 总数，
以及窗口内 容器控件中的控件内容。

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

恳求各位帮忙 谢谢！

[楚人无衣]

var
i: Integer;
begin
for i := 0 to ControlCount - 1 do
Memo1.Lines.Append(Controls[i].Name);
end;

[xixuemao]

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;

[微笑的水]

在我 刚刚在delphibbs 找到答案的时候，两位五星回答了这个问题。
没想到 两个星星的 竟然没答对。。。。。估计是 觉得太容易了。。。
呵呵 100分给3楼了，谢谢你。