怎样给自己定义的控件加上onclick事件

譬如定义一个onclick的事件叫clickpro吧
那么你的控件的onclick事件可以这样写：
控件.onclick := clickpro;