小白自学，求助大神

想根据字段自动添加label控件，利用fcount（或reccount）和for循环顺利建立label，label的caption就是字段名或数据值。

现在想要给每个label加上click事件，在点击该label时把label的caption值传递出去，就在for中添加procedure form1.&labelname..click和endproc，编译提示出错，将procedure...endproc做成独立prg执行也无效，只能把最后一个label的caption值传递出去而且点击无效~

方法很笨，请大神指导~~

另外尝试强行用bindevent（）绑定click事件，可以实现每个label添加click事件控制其他form控件等功能，但是就是没法传递caption值出去，不知道应该怎么写句子

[此贴子已经被作者于2020-5-12 00:25编辑过]

用bindevent()函数绑定的话,可在被绑定的事件中用=Aevents(ArrayName,0),获取事件源arrayName(1);
 arrayName(1).caption 就是所点击标签的caption.

最好自己封装一个label类

已解决，非常好用，谢谢！！！！！！

谢谢大大回复，小白刚开始自学，很多自定义类等高级手法还不会，也没有好的编程习惯，慢慢学习中~~~~

这位朋友，你弄到这步，已经是一位高手了，象我等，只能从控件箱是拖出控件到表单上
你不简单啊。

多谢多谢，多交流相互学习

查了好多，目前发现只能用bindevents绑定~~现在代码已经用的烂熟了，可是原理依然没弄明白。。。。