5,939
社区成员
发帖
与我相关
我的任务
分享动态生成的vcl控件，他们的事件应该写在哪里
程序中动态生成了n个label，那些动态生成的label的点击事件 onclick应该写在哪里呢？？？？？
...全文
请发表友善的回复…
发表回复
happyhong 2004-07-11
- 打赏
- 举报
支持2楼
creativepeter 2004-07-11
- 打赏
- 举报
没错，对于多个或N个的情况都只需要使用使用多个Procedure MyLabelClick(Sender:TObject);和对象名.OnClick:=MyLabelClick;就可以了。
pilicat 2004-07-11
- 打赏
- 举报
在单元文件Private部分定义一个过程
Procedure MyLabelClick(Sender:TObject);
在Implemetation 部分写:
procedure TForm1.MyLabelClick(Sender: TObject);
begin
ShowMessage((Sender as TLabel).Caption);
end;
在动态建立Label对象的语句后面加上:
对象名.OnClick:=MyLabelClick;
Procedure MyLabelClick(Sender:TObject);
在Implemetation 部分写:
procedure TForm1.MyLabelClick(Sender: TObject);
begin
ShowMessage((Sender as TLabel).Caption);
end;
在动态建立Label对象的语句后面加上:
对象名.OnClick:=MyLabelClick;
