递归遍历控件

procedure TForm1.TraverseWincontrol(AWinControl: TWinControl);
var
i, j :Integer;
begin
   for i:= 0 to AWinControl.ControlCount - 1 do
   begin
     if (AWinControl.Controls[I] is TPageControl) then
       for j := 0 to ( AWinControl.Controls[I] as TPageControl ).PageCount - 1 do
         TraverseWincontrol( (AWinControl.Controls[I] as TPageControl).Pages[j] )
     else if(AWinControl.Controls[I] is TPanel) then
       TraverseWincontrol( AWinControl.Controls[I] as TPanel )
     else if (AWinControl.Controls[I] is TCombobox) then
       Memo1.Lines.add((AWinControl.Controls[I] as TCombobox).Name);
   end;
end;