精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>控件开发和使用>>Re:如何动态访问控件?

主题:Re:如何动态访问控件?
发信人: michaelpan(michael)
整理人: teleme(2001-02-05 11:23:00), 站内信件
【 在 curioussea 的大作中提到:】
:
:有n个speedbutton ,名字为Speedbuttoni,i从1到n
:如何动态访问这些控件?
:例如:
:
:
:......
以下代码将名为'speedbuttoni'的控件的tag赋值3
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to controlcount-1 do
  if controls[i].name = 'speedbuttoni' then
  begin
    TSpeedbutton(controls[i]).Tag := 3;
    exit;
  end;
end;

[关闭][返回]