打造“鼠标双击反应器”成实用版
;;=======================================双击空白处执行HH命令**** Hidden Message *****
(defun Start-Mouse-Reactor ()
(VLR-Mouse-Reactor nil '((:VLR-beginDoubleClick . dblclkedit)))
)
;;(Start-Mouse-Reactor);启用命令反应器,先要有dblclkedit定义
(cond ((or (not (getenv "dblclkedit")) (= (getenv "dblclkedit") "1")) (Start-Mouse-
Reactor)))
(defun Stop-Mouse-Reactor (/ *dblclkReactor*)
(cond ((setq *dblclkReactor* (assoc :VLR-Mouse-Reactor (vlr-reactors)))
(vlr-remove (cadr *dblclkReactor*))
)
)
)
;;(Stop-Mouse-Reactor);停止双击命令反应器
;;=======================================双击空白处执行HH命令 来看下,谢谢分享! good good。
好资料,谢谢分享
楼主,很给力! 楼主伟大,多次带给我们的是震撼大作,谢谢楼主 来看下,谢谢分享! 不知是不是可以双击DCL
向楼主学习 支持支持支持支持 :o定义一个玩一下 dfawefqlkwjed;kmsd;lkj:ZO{OPEWkd,A'xcaowekc;;lk'OKF;ZKSDFPOIok'c;lxkz'cpoivl;msc
看看什么情况 回复看楼主作品 如果想查看隐藏内容请回复...