关于弹出菜单的问题

[yellowant]

我做了一个弹出式菜单，在弹出菜单中需要对弹出此菜单的窗口上的数据窗口进行操作，按照常规的方法，需要写出该窗口的名字和要操作的控件名。现在我想通过参数传递，写一个通用的菜单，以适应多个窗口调用的需要，请问如何将这个窗口及上的控件用参数传递给菜单呢？

[圣殿骑士18]

?

[yellowant]

我做了一个弹出菜单，在菜单项中需对所调用此菜单的窗口中的数据窗口进行操作。按一般的做法是直接写上该窗口的名字和控件名称，就可以进行操作了。现在我想做一个通用的菜单。如何才能将调用此菜单的窗口和控件传递给菜单呢？

[rabbitsfoot]

菜单定向到父窗口的自定义事件!

[圣殿骑士18]

通用菜单里定义：
Powerobject Anyobject
创建通用菜单的时候初始化Anyobject为当前的父窗口
菜单项的CLICKED事件：
Anyobject.triggerevent("ue_item1")
ue_item1是父窗口的自定义事件

[yellowant]

谢谢大家，这个问题我已经解决了，但和大家说的思路不同。

[yellowant]

我是这样做的，这里给出代码，请大家指教。
Integer li_k
DataWindow ldw_1
GraphicObject lg_control
Boolean lb_yn
String ls_syntax

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 = '13'")
ldw_1.Modify("gr_1.rotation='-20'")
ldw_1.Modify("gr_1.legend='1'")
ldw_1.Modify("gr_1.perspective='1' gr_1.rotation='-20' gr_1.elevation='-60' gr_1.depth='50'")
//饼图数据显示格式
ls_syntax = "if(seriescount > 1,series,string(percentofseries,'0.00%'))"
ldw_1.Modify('gr_1.pie.dispattr.displayexpression ="'+ls_syntax+'"')
//图例显示格式
ldw_1.Modify('gr_1.legend.dispattr.displayexpression="category+sumforcategory"')
ldw_1.SetRedraw(True)
lb_yn = False
End If
Next