一个关于右键弹出式菜单的问题,高手们帮个忙,急急急。。。。。。

xymsgw 2004-05-08 12:11:35
问题是,如何写代码才能将右键菜单中的选项,显示灰色不可用,就好像enabled=.f.一样。

小弟就是想,不同身份的用户进入软件后,右键菜单中的选项可用性是不同的,从而达到不同权限的功能。

十分感谢,
...全文
30 8 点赞 打赏 收藏 举报
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
cdbqss1 2004-05-11
对,同楼上的做法差不多。
如果将全局变量showwhat1,showwhat2等改为数组,并与权限控制联系起来,就更加实用。
  • 打赏
  • 举报
回复
magnetmoon 2004-05-10
關鍵是定義菜單時要有下面一句 ... SKIP FOR showwhat1
DEFINE BAR 1 OF shortcut PROMPT "加到我的最愛(\<A)..." SKIP FOR showwhat1
然后對變量showwhat1賦不同的值就可以了


form1.init()

public showwhat1,showwhat2
DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF shortcut PROMPT "加到我的最愛(\<A)..." SKIP FOR showwhat1
DEFINE BAR 2 OF shortcut PROMPT "\-"
DEFINE BAR 3 OF shortcut PROMPT "從我的最愛中移除(\<D)..." SKIP FOR showwhat2

ON SELECTION BAR 1 OF shortcut messagebox('1')
ON SELECTION BAR 3 OF shortcut messagebox('3')

*ACTIVATE POPUP shortcut

form1.rightclick()

showwhat1=.f.
showwhat2=.t.
ACTIVATE POPUP shortcut at MROW(),MCOL()
  • 打赏
  • 举报
回复
cdbqss1 2004-05-09
同意楼上意见。
具体而言,实现步骤是:
第一步:是根据菜单项的多少,定义一个逻辑型的数组;
第二步:根据用户权限,设置数组的值;
第三步:在定义菜单时,使用set skip of 命令。
  • 打赏
  • 举报
回复
yanzhigang 2004-05-09
UP
  • 打赏
  • 举报
回复
xymsgw 2004-05-09
还是不很明白,能不能更具体点,十分感谢。能说明一下原理吗?
  • 打赏
  • 举报
回复
wwle 2004-05-08
你对应每个右建菜单选项:对应一个数组的每个成员(逻辑值) 不可用置为真!就行了。
当然更具没个用户,对数组元素进行操作 =.t. 或 =.f.
  • 打赏
  • 举报
回复
coolyylu 2004-05-08

SET SKIP OF BAR 1 OF popEdit nUserLevel > 2
  • 打赏
  • 举报
回复
xymsgw 2004-05-08
up
  • 打赏
  • 举报
回复
相关推荐
发帖
VFP
加入

2502

社区成员

VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
申请成为版主
帖子事件
创建了帖子
2004-05-08 12:11
社区公告
暂无公告