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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

;;=======================================双击空白处执行HH命令

游客，如果您要查看本帖隐藏内容请回复

(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

如果想查看隐藏内容请回复...

帐号		自动登录	找回密码
密码			立即注册

[源码] 打造“鼠标双击反应器”成实用版

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分