使用数组记录所有的Label 在Ontime中更改就可以了a:array of TLabel setlength(a, 10); .. a[1]:=TLabel.create(self); a[2]:=TLabel.create(self); ...ontime: a[1].caption:='No1';OnDestory for i:=low(a) to high(a) do a[i].Free; SetLength(a, 0)/ by LY http://www.99898.com/www/lysoft
在Ontime中更改就可以了a:array of TLabel
setlength(a, 10);
..
a[1]:=TLabel.create(self);
a[2]:=TLabel.create(self);
...ontime:
a[1].caption:='No1';OnDestory
for i:=low(a) to high(a) do a[i].Free;
SetLength(a, 0)/ by LY http://www.99898.com/www/lysoft