弹出式menu的参数传递问题

pufan 2002-07-13 07:09:03
pb的menu中只能引用parentwindow,可是我想动态获得当前父对象,怎办呢?
例:
窗口w_1 中有一动态生成的userobject uo_1,我想在uo_1 的弹出菜单m_1中引用uo_1,不能用全局变量,脚本怎写.
...全文
48 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
yellowant 2002-07-14
  • 打赏
  • 举报
回复
给一个例子你参考一下:
在弹出菜单时:
//查看列表
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

pufan 2002-07-13
  • 打赏
  • 举报
回复
to HSB8(八哥) :
说详细点好吗

1,108

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧