弹出上下文菜单

ｍ_Main  m_menu_pop

m_menu_pop =

create  m_Main

 

integer Px,Py  //设置弹出菜单位置

Px = this.x+ PointerX()

Py = this.y +PointerY()

 

m_menu_pop.

PopMenu(Px,Py)

destroy m_menu_pop

return 0

---

 如果在父窗口w_parent右击子窗口w_son后弹出上下文菜单，点击该菜单的 "打开窗口" 选项后弹出另一个窗口w_else，则应该在

w_son中新定义一个事件ue_Pop_Window，在该事件中写以下script脚本：

open(w_CK)

 

在else的clicked的script脚本事件中写：

ParentWindow.Post 

Event Dynamic ue_Pop_else_Window()

 

注：

1、不能在w_parent或w_else窗口中写定义新事件，否则无效。

2、也可以直接在else的clicked的script脚本事件中写：open(w_else)即可。

3、ParentWindow.Post 

Event Dynamic Event() //有Event为调用事件，无Event为调用函数。