给文本框添加右键菜单(剪切.复制.粘贴)
*-----------------------------------
*--文本框的rightclick()事件加代码:
*--pop式功能表
DEFINE POPUP shortcut shortcut RELATIVE FROM MROW(),MCOL()
DEFINE BAR _MED_CUT OF shortcut PROMPT "剪切(\<T)" KEY CTRL+X, "Ctrl+X"
DEFINE BAR _MED_COPY OF shortcut PROMPT "复制(\<C)" KEY CTRL+C, "Ctrl+C"
DEFINE BAR _MED_PASTE OF shortcut PROMPT "粘贴(\<P)" ; KEY CTRL+V, "Ctrl+V" SKIP FOR;
EMPTY(_CLIPTEXT)
ACTIVATE POPUP shortcut
|
|