幻奇之蚯蚓闻菊:如何实现右键弹出的快捷编辑菜单

来源：百度文库编辑：偶看新闻时间：2024/04/29 11:12:47

如何实现右键弹出的快捷编辑菜单

*程序文件：EdtShort.prg
*程序功能：在文本可编辑区域内弹出编辑快捷菜单，实现快速编辑操作
*一般使用方法：在可文本编辑的控件内的RightClick事件中写入代码;
do EdtShort.prg with this
*增强使用方法：新建类，派生于可编辑的控件，如TextBox、EditBox等，再在其控件内的RightClick事件中写入代码：do EdtShort.prg with this，保存以便后用。
*功能不足：不能对“密码框、只读框”进行识别操作，不能对“撤消”进行检测，希望能在以后进行升级，并欢迎大家能给出好的建议和意见！
para oREF
DEFINE POPUP EdtShort SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR _med_undo OF EdtShort PROMPT "撤消(\ MESSAGE "撤消上一次命令或操作"
DEFINE BAR 3 OF EdtShort PROMPT "\-"
DEFINE BAR _med_cut OF EdtShort PROMPT "剪切(\ SKIP FOR _screen.activeform.activecontrol.sellength = 0 ;
MESSAGE "移去选定内容并将其放入剪贴板"
DEFINE BAR _med_copy OF EdtShort PROMPT "复制(\ SKIP FOR _screen.activeform.activecontrol.sellength = 0 ;
MESSAGE "将选定内容复制到剪贴板上"
DEFINE BAR _med_paste OF EdtShort PROMPT "粘贴(\ SKIP FOR empty(_cliptext) ;
MESSAGE "粘贴剪贴板上的内容"
DEFINE BAR _med_clear OF EdtShort PROMPT "删除(\ SKIP FOR _screen.activeform.activecontrol.sellength = 0 ;
MESSAGE "移去选定内容，并且不将其放到剪贴板上"
DEFINE BAR 8 OF EdtShort PROMPT "\-"
DEFINE BAR _med_slcta OF EdtShort PROMPT "全选(\ MESSAGE "选定当前窗口中的所有文本或数据项"
ACTIVATE POPUP EdtShort

如何更改右键的快捷菜单如何更改右键的快捷菜单如何更改右键的快捷菜单如何编辑右键菜单如何删除右键快捷菜单右键弹出的菜单可以自由编辑吗？如何简减桌面的右键的快捷菜单? Windows 98 中,通过鼠标右键单击"任务栏"空白处,从弹出的快捷菜单中可以实现的功能不包括（）。如何增加和减少鼠标右键的快捷菜单选项如何清理右键弹出菜单？我在桌面弹出右键快捷菜单的速度比较慢,是怎么回事? 怎么在右键的快捷菜单中加入“弹出和关闭光驱” 如何编辑鼠标右键点击出的菜单？如何去除右键快捷菜单中的菜单项？如何在桌面设置右键快捷菜单的选项,其他文件夹或程序快捷方式的右键菜单如何设置 vb中如何实现在文件框中右键选中一个文件后弹出一个菜单如何删除右键弹出菜单里的项目？如何配置鼠标右键弹出菜单的各项？右击C盘弹出的右键菜单如何更改如何更改点击右键弹出的菜单项目？请问如何把写字板加如右键快捷菜单里的“新建”里面？？请问,如何在右键菜单加快捷? 比如flashget 怎么编辑WinXp的右键菜单？鼠标右键的菜单怎样编辑