DEFINE   POPUP   快捷菜單   SHORTCUT   RELATIVE   FROM   MROW(),MCOL()  
  DEFINE   BAR   _med_undo   OF   快捷菜單   PROMPT   "撤消(\<U)"   ;  
  KEY   CTRL+Z,   "Ctrl+Z"  
  DEFINE   BAR   _med_redo   OF   快捷菜單   PROMPT   "重做(\<D)"   ;  
  KEY   CTRL+R,   "Ctrl+R"  
  DEFINE   BAR   3   OF   快捷菜單   PROMPT   "\-"  
  DEFINE   BAR   _med_cut   OF   快捷菜單   PROMPT   "剪切(\<T)"   ;  
  KEY   CTRL+X,   "Ctrl+X"  
  DEFINE   BAR   _med_copy   OF   快捷菜單   PROMPT   "復(fù)制(\<C)"   ;  
  KEY   CTRL+C,   "Ctrl+C"  
  DEFINE   BAR   _med_paste   OF   快捷菜單   PROMPT   "粘貼(\<P)"   ;  
  KEY   CTRL+V,   "Ctrl+V"   ;  
  SKIP   FOR   Len(_ClipText)   =   0  
  DEFINE   BAR   _med_clear   OF   快捷菜單   PROMPT   "清除(\<A)"  
  DEFINE   BAR   8   OF   快捷菜單   PROMPT   "\-"  
  DEFINE   BAR   _med_slcta   OF   快捷菜單   PROMPT   "全選(\<L)"   ;  
  KEY   CTRL+A,   "Ctrl+A"  
   
  ACTIVATE   POPUP   快捷菜單