刚刚做的例子,请参考:
*--表单的Init事件代码:
Define Popup shortcut shortcut Relative From Mrow(),Mcol()
Define Bar 1 Of shortcut Prompt " <关闭菜单> "
Define Bar 2 Of shortcut Prompt "\-"
Define Bar 3 Of shortcut Prompt "复制 (\<C)"
Define Bar 4 Of shortcut Prompt "粘贴 (\<P)"
Define Bar 5 Of shortcut Prompt "\-"
Define Bar 6 Of shortcut Prompt "操作A (\<A)"
Define Bar 7 Of shortcut Prompt "\-"
Define Bar 8 Of shortcut Prompt "操作B (\<B)"
*如果不够用,照着加几个即可。
On Selection Bar 3 Of shortcut MyForm.CMD_MenuClick.Click(1)
On Selection Bar 4 Of shortcut MyForm.CMD_MenuClick.Click(2)
On Selection Bar 6 Of shortcut MyForm.CMD_MenuClick.Click(3)
On Selection Bar 8 Of shortcut MyForm.CMD_MenuClick.Click(4)
*--表单的RightClick事件代码:
Activate Popup shortcut At Mrow(),Mcol()
*--然后在表单上建一个Command按钮,其Visible设为.F.,其Click事件代码:
Parameters tnMenuID
Do Case
Case tnMenuID=1
Messagebox("你的相应代码1...",64,"信息提示")
Case tnMenuID=2
Messagebox("你的相应代码2...",64,"信息提示")
Case tnMenuID=3
Messagebox("你的相应代码3...",64,"信息提示")
Case tnMenuID=4
Messagebox("你的相应代码4...",64,"信息提示")
Endcase
*--最后运行你的表单时:
Public MyForm
Do Form 你的表单文件名.Scx Name MyForm
或
Do Form 你的表单文件名.Scx Name MyForm Linked
*--表单运行后,在表单上右单击鼠标即可显示菜单。
|
|