首页 > 代码库 > 弹出上下文菜单

弹出上下文菜单

弹出上下文菜单

m_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为调用函数。