怎样通过控件的属性得到该控件的句柄;我不知表达是否到位;详细请看贴:(100分)

  • 主题发起人 主题发起人 魏启明
  • 开始时间 开始时间

魏启明

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 值大于所点控件的控件都设为。。。。。}
 
{在OnClick := buttonclick; //点击事件 中将Tag 值大于所点控件的控件都设为。。。。。}

buttonclick中的代码:
for i:=(sender as Tbutton).tag+1 to Length(a)-1 do
a.enabled:=false; //对第I个按钮的操作
 
接受答案了.
 

Similar threads

后退
顶部