魏
魏启明
Unregistered / Unconfirmed
GUEST, unregistred user!
通过数组动态生成的控件;要进行批量处理;
现在;我给每个控件都赋予了一个唯一的值:Tag
我想通过tag的值确定哪些控件符合要求;并对其进行操作;
问
如何实现;要代码的哦!
我的原码:
var a : array of TButton;
i : integer;
begin
SetLength(a,5); //分配内存,这里的100可以用变量来代替
for i := 0 to Length(a)-1 do
Begin
a := TButton.Create(Form1);
with a do
begin
Parent := panel1;
Left := 0;
Height := 20;
Width := 180;
Top := i * 20;
Caption := 'a'+IntToStr(i);
Tag:=i;
OnClick := buttonclick; //点击事件
Show;
end;
end;
end;
{在OnClick := buttonclick; //点击事件 中将Tag 值大于所点控件的控件都设为。。。。。}
现在;我给每个控件都赋予了一个唯一的值:Tag
我想通过tag的值确定哪些控件符合要求;并对其进行操作;
问
如何实现;要代码的哦!
我的原码:
var a : array of TButton;
i : integer;
begin
SetLength(a,5); //分配内存,这里的100可以用变量来代替
for i := 0 to Length(a)-1 do
Begin
a := TButton.Create(Form1);
with a do
begin
Parent := panel1;
Left := 0;
Height := 20;
Width := 180;
Top := i * 20;
Caption := 'a'+IntToStr(i);
Tag:=i;
OnClick := buttonclick; //点击事件
Show;
end;
end;
end;
{在OnClick := buttonclick; //点击事件 中将Tag 值大于所点控件的控件都设为。。。。。}