请问如何得到窗体内所有控件的名字和类型？谢谢

Question

窗体内有N个控件，有些控件内又包含一些控件，比如GroupBox里包含了一些Button，我要知道窗体里的所有控件的名字和类型，其中包含的级数是未知的，即无限级，可能用递归应该容易实现些，应该怎样写？谢谢

Answer 1

procedure TForm1.Button3Click(Sender: TObject);
var
  i:integer;
begin
  for i := 0 to self.ComponentCount - 1 do
  begin
    showmessage(self.Components[i].ClassName);
    showmessage(self.Components[i].Name);
  end;
end;

Answer 2

var
i:integer;
begin
for i:= 0 to Self.ComponentCount-1 do
begin
  ShowMessage(Components[i].ClassName);
  ShowMessage(Components[i].Name);
end;