怎么实现 dcl list_BOX 双击运行

hnfsf

请教个问题：
(defun c:dia7b()
   (setvar "cmdecho" 0)
   (setq dcl_id (load_dialog "dia7b"))
   (new_dialog "dia7b" dcl_id)
   (start_list "klist")
   (mapcar 'add_list wordlist)
   (end_list)
   (set_tile "klist" "5")
   (action_tile "klist" "(sub_klist $value)")
   (action_tile "accept" "(ok_dia7b)(done_dialog 1)")
   (setq dd (start_dialog))
   (unload_dialog dcl_id)
   (prin1)
)
(defun sub_klist(vvs)
(set_tile "str" (nth (atoi vvs) wordlist))
)
(defun ok_dia7b()
(setq str (get_tile "str"))
)


dia7b:dialog{
label="编号查看和编辑";
:list_box{
label=" 编号      数量";
key="klist";width=30;height=50;
fixed_width_font=true;       
}
:edit_box{label="编辑";key="str";}
spacer_1;
ok_cancel;
}
怎么能双击运行？
(= 4 $reason)这个不知道怎么用，试了很多没弄明白
想实现的是，单击list_box选择到并更新edit_box的内容，双击list_box，则更新edit_box并运行，更新edit_box时焦点在edit_box，并全部选中edit_box内容。

zlg258369

(action_tile "klist" "(sub_klist)")

(defun sub_klist()
  (if (= $reason 4)
    (“双击”)
    (“单击”)
  ）
)

选择内容(mode_tile "str" 2)

hnfsf

谢谢，已经解决

328302216

楼主  能否把完成后的程序源码参考一下啊，我最近正在弄一个类似的程序，因为第一次弄鼠标双击和单击……

flowerson

hnfsf 能贴出来是怎么解决的吗？