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;
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;
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;
但焦点不一定在这个button上,这语句该怎么写?
有时又想button4的Caption为'我'
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;