发信人: 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; |
|