怎样得到某个窗口的全部控件？

Question

for i:=0 to form.ControlCount-1 do
  begin
    if form.Controls[i].ClassType=tlabel then
    begin       Tlabel(form.Controls[i]).Font.Size:=14;
    end;
  end;
为什么用controlcount只能得到窗口的几个控件啊

Answer 1

只能得到parent是当前form的控件。
比如有个panel，那么panel里的控件是遍历不到的。

Answer 2

那该如何得到窗口的所有控件呢？self也不行

Answer 3

遍历
对每个Controls[i].ControlCount;

Answer 4

记得加Controls[i] is WinControl判断

Answer 5

Controls[i].ControlCount
没有这个属性啊而且wincontrol用的什么单元啊

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
    for i:=0 to self.ComponentCount-1 do
    Memo1.Lines.Add(self.Components[i].Name);
end;