在Text控件的RightClick Event事件中调用右键菜单:
DEFINE POPUP 右键菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR _med_slcta OF 右键菜单 PROMPT "全部选定(\<A)"
DEFINE BAR _med_copy OF 右键菜单 PROMPT "复制(\<C)" ;
MESSAGE "将选定内容复制到剪贴板上"
DEFINE BAR _med_paste OF 右键菜单 PROMPT "粘贴(\<P)" ;
MESSAGE "粘贴剪贴板上的内容"
ACTIVATE POPUP 右键菜单
当然也可在KeyPress Event事件中调用
[此贴子已经被作者于2006-7-24 16:39:11编辑过]