DCL

zhelindaxues

 (defun dcl ()
  (setq dcl_id (load_dialog "主杆图DCL"))
  (new_dialog "sy" dcl_id)
  (set_tile "ksj" "1526")
  (action_tile "ok" "(get_date)(done_dialog 1)")
  (action_tile "dhh" " (done_dialog 2)")
  (setq dd (start_dialog))
  (cond ((= dd 1) (alert"....."))
 ((= dd 2) ((get_date)))
  )
)
(defun get_date ()
  (setq bbc (get_tile "ksj"))
)

sy:dialog{
:edit_box{label="火大";key="ksj";width=6;}
:button{label="大火";key="dhh";}
 ok_only;
}

大火的那个按键为什么没用呢? 点了没反应. 而按了确定键以后却取不到KSJ的值.

sailorcwx

确认键虽然叫ok_only,但它的key应该是accept