急！急！如何遍历窗体中动态创建的所有控件，对他们进行控制，如:visible??

Question

var 
  i        : integer; 
  PropInfo  : PPropInfo; 
  Component : TComponent; 
begin 
  for i := 0 to ComponentCount - 1 do 
  begin 
    Component := Components[i]; 
    if (Component is TControl) and ((Component.ClassName = ClassName) 
      or (ClassName = 'AllComponents')) then 
    begin 
    //add
    end; 
  end; 
end; 

Answer 1

http://www.csdn.net/expert/Topic/291/291921.shtm