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;