修改"
popmenu(this, items ,this.x+this.pointerx(),
this.y+this.pointery())
注意:在MDI 应用中,popmenu()函数需要改为:
popmenu(this, items ,w_frame.pointerx(),w_frame.pointery())
其中w_frame为MDI主窗口名。
---- 在函数popmenu中,又激活了被右击对象的ue_beforepop用户事件。如有必要,你可以给被右击对象定义一个ue_beforepop事件,在该事件中可调用om_1.setitemdisable()函数来屏蔽某个菜单项。
---- 最后,别忘了在应用的close事件里加上下列语句,及时释放系统内存。
---- if isvalid(om_1) then destroy om_1
---- 以上代码在Windows98 和Powerbuilder6.5平台上开发,并在多个大型系统中应用,效果很好。
关键词:用PB做一个通用右键菜单