我要复制，粘贴的源代码！

[董家文]

各位高手，有的话就给我吧，给分！

[meizibbs1]

*把下列代码复制到edit.rightclick():

Define POPUP EdtShort SHORTCUT RELATIVE FROM MROW(),MCOL()
Define BAR _med_undo OF EdtShort PROMPT "撤消(\<U)" ;
MESSAGE "撤消上一次命令或操作"
Define BAR 3 OF EdtShort PROMPT "\-"
Define BAR _med_cut OF EdtShort PROMPT "剪切(\<T)" ;
SKIP FOR _screen.activeform.activecontrol.sellength = 0 or !EMPTY(_screen.activeform.activecontrol.passwordchar) ;
MESSAGE "移去选定内容并将其放入剪贴板"
Define BAR _med_copy OF EdtShort PROMPT "复制(\<C)" ;
SKIP FOR _screen.activeform.activecontrol.sellength = 0 or !EMPTY(_screen.activeform.activecontrol.passwordchar) ;
MESSAGE "将选定内容复制到剪贴板上"
Define BAR _med_paste OF EdtShort PROMPT "粘贴(\<P)" ;
SKIP FOR empty(_cliptext) ;
MESSAGE "粘贴剪贴板上的内容"
Define BAR _med_clear OF EdtShort PROMPT "删除(\<D)" ;
SKIP FOR _screen.activeform.activecontrol.sellength = 0 ;
MESSAGE "移去选定内容，并且不将其放到剪贴板上"
Define BAR 8 OF EdtShort PROMPT "\-"
Define BAR _med_slcta OF EdtShort PROMPT "全选(\<A)" ;
MESSAGE "选定当前窗口中的所有文本或数据项"
Activate POPUP EdtShort