用openuserobject()创建的对象怎样加载事件?
比如已经定义好一个UO是BUTTON的,在窗口上用openuserobject()创建一个或N个新BUTTON,如何在这些新BUTTON上用脚本定义事件?PB是否可以这样做?
我的要求:
1、不用问做什么用或用在什么上,因为不论我怎么用,我的需求是能否用脚本定义(或捕获)动态控件的事件,仅此而已;
2、不用提议把例如clicked事件的脚本写在UO上,让新BUTTON具有UO的执行功能,需求是新BUTTON的个数在生成前并不知道是否改变,写在UO哩也没有用;
3、先不考虑API;
4、听说PFC哩有相关例程,但我没有找着;
其实我问的就是PB哩是否有用脚本定义控件的事件的功能。
如:
forward
global type w_aa from window
end type
type cb_1 from commandbutton within w_aa
end type
end forward
global type w_aa from window
integer width = 1563
integer height = 692
boolean titlebar = true
string title = "TEST"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_1 cb_1
end type
global w_aa w_aa
on w_aa.create
this.cb_1=create cb_1
this.Control[]={this.cb_1}
end on
on w_aa.destroy
destroy(this.cb_1)
end on
type cb_1 from commandbutton within w_aa
integer x = 475
integer y = 100
integer width = 517
integer height = 160
integer taborder = 10
integer textsize = -14
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "关闭"
end type
event clicked;close(parent)
end event
以上是一个窗口的源,其中大部分基本可用脚本描述,但最后两行怎么用脚本表达??