急！如何遍历一个窗体内的全部控件或对象？

Question

TComponent.ComponentCount
Note: This code does not save the form or data module to disk after the nonvisual components are moved.  If executed at runtime, the effect will not persist.var  I: Integer;
  Temp: TComponent;
begin
  for I := ComponentCount - 1 downto 0 do
  begin
    Temp := Components[I];
    if not (Temp is TControl) then
    begin
      RemoveComponent(Temp);
      DataModule2.InsertComponent(Temp);
    end;
  end;
end;
:三目运算符? 没有

Answer 1

遍历所有控件用Controls属性，
遍历所有组件用Components属性。
至于用法txy已经举了例子。