用addobject建立多个控件，施用Bindevent（）实现click功能，但只能点击最后一个控件，请高手帮助解决

用addobject建立多个控件，使用Bindevent（）实现click功能，但只能点击最后一个控件，请高手帮助解决
参考
http://topic.csdn.net/u/20090613/13/83608534-8255-4B4C-ABEF-2EE7D55E9469.html

使用 Bindevent(Thisform.Cmd_Test,"Click",oHandler,"CmdClick")

用addobject建立多个控件，使用Bindevent（）实现click功能，但只能点击最后一个控件，请高手帮助解决

如何实现对多个控件都可以点击？


------解决方案--------------------
Messagebox('ok',64,'') &&此处改为你的相应代码
改为
MESSAGEBOX('您单击的是按钮：'+Testa.ACTIVECONTROL.NAME,64,'')

运行你的表单时：
Public Testa
Do Form 你的表单文件名.Scx Name Testa

另外最好用 用表单自定义方法或用隐藏的按钮Click事件代替 MyProc.PRG