弹出式menu的参数传递问题

[pufan]

pb的menu中只能引用parentwindow,可是我想动态获得当前父对象,怎办呢?
例:
窗口w_1 中有一动态生成的userobject uo_1,我想在uo_1 的弹出菜单m_1中引用uo_1,不能用全局变量,脚本怎写.

[pufan]

to HSB8(八哥) :
说详细点好吗

[yellowant]

给一个例子你参考一下：
在弹出菜单时：
//查看列表
String ls_name,ls_flm
String ls_win
integer li_SeriesNbr, li_ItemNbr
grObjectType object_type
m_pop lm_pop
Window lw_w

lw_w = This.GetParent()
//按右键选择查看明细和选择图形形式
lm_pop = Create m_pop
object_type = dw_1.ObjectAtPointer(dwo.name,li_SeriesNbr, li_ItemNbr)
ls_name = dw_1.CategoryName ( dwo.name,li_ItemNbr)
If ls_name = '' Or IsNull(ls_name) Then
ls_flm = ''
lm_pop.m_view.m_list.Enabled = False
Else
Select zcbm Into :ls_flm From rs_zczd Where zcmc =:ls_name;
ls_win = 'w_career_list#'+ls_flm
Message.StringParm = ls_win
// lm_pop.m_view.m_list.Enabled = ib_child
End If
lm_pop.m_view.PopMenu(lw_w.PointerX(),lw_w.PointerY())
Destroy lm_pop


在菜单中：

String ls_win,ls_parm
Window lw_w
ls_parm = Message.StringParm
ls_win = Left(ls_parm,Pos(ls_parm,'#') - 1)
ls_parm = Right(ls_parm,(Len(ls_parm) - Pos(ls_parm,'#')))
OpenWithParm(lw_w,ls_parm,ls_win,ParentWindow)


在菜单中：

Integer li_k
DataWindow ldw_1
GraphicObject lg_control
String ls_syntax
Boolean lb_yn

lb_yn = True
For li_k = 1 To UpperBound(ParentWindow.Control[],1)
lg_control = ParentWindow.Control[li_k]
If TypeOf(lg_control) = DataWindow! And lb_yn Then
ldw_1 = lg_control
ldw_1.SetRedraw(False)
ldw_1.Modify("gr_1.graphtype = '17'")
ldw_1.Modify("gr_1.perspective='1' gr_1.rotation='-20' gr_1.elevation='-60' gr_1.depth='50'")
ldw_1.Modify("gr_1.legend='1'")
//图例显示格式
ldw_1.Modify('gr_1.legend.dispattr.displayexpression="category +sumforcategory"')
//饼图数据显示格式
ls_syntax = "if(seriescount > 1,series,string(percentofseries,'0.00%'))"
ldw_1.Modify('gr_1.pie.dispattr.displayexpression ="'+ls_syntax+'"')
ldw_1.SetRedraw(True)
lb_yn = False
End If
Next