delphi怎样遍历form1中的所有button控件解决方法

delphi怎样遍历form1中的所有button控件
delphi怎样遍历form1中的所有button控件

------解决方案--------------------
var i:integer;
begin
for i:=0 to ComponentCount-1 do //得到窗体的所有控件。
begin
if Components[i] is TButton then //判断是否是TButton类。
// if TButton(Components[i]).Focused then //判断是否有点焦
showmessage(TButton(Components[i]).Name);
end;
end;
------解决方案--------------------

Delphi(Pascal) code

var i:integer;
begin
for i:=0 to ComponentCount-1 do //得到窗体的所有控件。
  begin
  if Components[i] is TButton then //判断是否是TButton类。
    if i=3 then
      TButton(Components[i]).Caption:='我';
  end;
end;