巨菜问题!如何用一条循环语句遍历一个窗体内所有的控件?

Question

类似这样：
var
  Ctrl: TControl;for i:=0 to form1.ControlCount -1 do begin
  Ctrl:=form1.Controls[i];
  
...可以用(Ctrl as TBotton).enable这样强制类型转换
...可以用Ctrl.Name或Ctrl.Taget判断是否是自己需要控制的控件end;

Answer 1

for i:=0 to controlCount-1 do
   Controls[i].Enabled:=false;

Answer 2

for i:=0 to componentcount-1 do
  if components[i] is tedit then
       (components[i] as tedit).text:='test';

Answer 3

for i:=0 to componentcount-1 do
   if components[i] is tedit then
      if components[i] is tedit.enable:=False;
:)

Answer 4

for i:=0 to componentcount-1 do
  if components[i] is tedit then
      (components[i] as tedit).enable:=False;