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;beginfor i:=0 to ComponentCount-1 do //得到窗体的所有控件。  begin  if Components[i] is TButton then //判断是否是TButton类。    if i=3 then      TButton(Components[i]).Caption:='我';  end;end;