菜鸟问题,如何遍历窗体的所有TWinControl

Question

RT,能将某窗体所包含的所有WinControl列出
急用,在线等,多谢!

Answer 1

var i:integer;
begin
  for i:=0 to ControlCount-1 do
  if Controls[i] is TWinControl then
       ShowMessage(Controls[i].Name);
end;

Answer 2

procedure AddControl(ACtrl: TWinControl; AList: TStrings);
var
  I: Integer;
begin
  if Assigned(ACtrl) and Assigned(AList) then
    for I := 0 to ACtrl.ControlCount - 1 do
    begin
      if ACtrl.Controls[I] is TWinControl then
      begin
        AList.Add(ACtrl.Controls[I].classname);
        AddControl(TWinControl(ACtrl.Controls[I]), AList)
      end;
    end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  AddControl(Self, ListBox1.items)
end;