WhoCanSay 发表于 2016-6-12 16:56:47

打造“鼠标双击反应器”成实用版

;;=======================================双击空白处执行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命令

dbx5511 发表于 2016-6-12 17:18:58

来看下，谢谢分享！

819534890 发表于 2016-6-12 17:31:46

good good。

lhtfhc 发表于 2016-6-12 17:33:57

好资料，谢谢分享

Lispboy 发表于 2016-6-12 17:54:35

楼主，很给力！

HLCAD 发表于 2016-6-12 18:08:47

楼主伟大，多次带给我们的是震撼大作，谢谢楼主

qjcpj 发表于 2016-6-22 10:03:41

来看下，谢谢分享！

ynhh 发表于 2016-6-22 14:58:04

不知是不是可以双击DCL

lucas3 发表于 2016-6-22 15:41:31

向楼主学习

aihuyujian 发表于 2016-6-22 23:38:05

支持支持支持支持

情侣路 发表于 2016-6-23 15:54:33

:o定义一个玩一下

lijiao 发表于 2016-6-24 08:58:36

dfawefqlkwjed;kmsd;lkj:ZO{OPEWkd,A'xcaowekc;;lk'OKF;ZKSDFPOIok'c;lxkz'cpoivl;msc

hao3ren 发表于 2016-6-25 01:21:05

看看什么情况

sicky111 发表于 2016-6-25 08:00:07

回复看楼主作品

wangdadayu 发表于 2016-6-26 18:27:01

如果想查看隐藏内容请回复...
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 打造“鼠标双击反应器”成实用版