Delphi遍历所有控件

方法一：（经测试，行得通）

var

  i:integer;
begin
  for i:= 0 to ComponentCount -1 do
  begin
    if (Components[i] is TEdit) and (TEdit(Components[i]).color = clred) then
      TEdit(Components[i]).Left:=TEdit(Components[i]).Left + 5;
  end;

end;

方法二：（技术有限，测试失败）

var

   c:TControl;

   i: integer ;

begin

   edit1 . Focused;

    for  i:= 0  to  self . ControlCount- 1  do

    begin

      c:=self . Controls[i];

      if  (c . ClassName= 'TEdit' )  and  ((c  as  TEdit).Focused)  then

        showmessage(c . Name);

 

    end ;

end ;