[原创]：DCL按钮双击效果 （源码）

nonsmall

本文简单实现DCL对话框双击效果

作者：nonsmall

思路扩展：其他控件、Grread左右键双击、右键反应器里面也可以用这个方法
;nonsmall 作品: Visual DCL 全自动对话框自动连接程序

(defun c:tt( / dcl_id chk)
    (setq DCL (vl-filename-mktemp nil nil ".Dcl"))
    (setq f (open dcl "w"))
    (foreach s '(
"/*nonsmall 作品: Visual DCL*/"
""
"Form1:dialog"
"{"
" label = \"nonsmall作品\";"
"    :column"
"    {"
"        :text"
"       {"
"            key = \"Label1\" ;"
"            label = \"点击效果显示\" ;"
"            width = 22.95 ;"
"            height = 2.475 ;"
"            fixed_height = true ;"
"            fixed_width = true ;"
"        }"
"        :button"
"        {"
"            key = \"Command1\" ;"
"            label = \"单击双击不一样\" ;"
"            width = 24.15 ;"
"            height = 3.075 ;"
"            fixed_height = true ;"
"            fixed_width = true ;"
"        }"
"    }"
"    ok_cancel ;"
"}"
    )
    (write-line s f))
    (close f)
    (setq dcl_id (load_dialog DCL))
    (vl-file-delete Dcl)
    (setq chk 2)
    (setq old_time 0)
    (while (> chk 1)
        (new_dialog "Form1" dcl_id)
        (Action_Tile "Command1" "(Action_Command1)")
        (Action_Tile "accept" "(Action_accept)")
        (Action_Tile "cancel" "(Action_cancel)")
        (setq chk (start_dialog))
    )
    (unload_dialog dcl_id)
    (princ)
)

(defun Action_accept()
    (done_dialog 1)
)
(defun Action_cancel()
    (done_dialog 0)
)
(defun Action_Command1()
    (setq new_time (read (substr (rtos (getvar "date") 2 15) 9 6)))
    (setq pass_time (- new_time old_time))
    (cond
        ((> pass_time 5)
            (set_tile "Label1" "单击")
        )
        ((alert "双击")
            
        )
    )
    (setq old_time new_time)
)

31475425

最近开始研究对话框了，谢谢楼主！

longer1000

高

netbee

直接利用时差判断思路
和系统判断思路一样，非常好。

zml84

不妥之处：“双击”引发了一个单击和一个双击事件。

sicky111

想法很巧妙。

zteykmgscqh

猫老师的功力早就今非昔比了，仿学院派弄个xyp-Dcl-Init共享一个，大家编DCL就省事啦