zhelindaxues 发表于 2008-10-17 15:44:00

DCL

<p>&nbsp;(defun dcl ()<br/>&nbsp; (setq dcl_id (load_dialog "主杆图DCL"))<br/>&nbsp; (new_dialog "sy" dcl_id)<br/>&nbsp; (set_tile "ksj" "1526")<br/>&nbsp; (action_tile "ok" "(get_date)(done_dialog 1)")<br/>&nbsp; (action_tile "dhh" "&nbsp;(done_dialog 2)")<br/>&nbsp; (setq dd (start_dialog))<br/>&nbsp; (cond&nbsp;((= dd 1) (alert"....."))<br/>&nbsp;((= dd 2) ((get_date)))<br/>&nbsp; )<br/>)<br/>(defun get_date&nbsp;()<br/>&nbsp; (setq bbc (get_tile "ksj"))<br/>)</p><p><br/>sy:dialog{<br/>:edit_box{label="火大";key="ksj";width=6;}<br/>:button{label="大火";key="dhh";}<br/>&nbsp;ok_only;<br/>}</p><p>大火的那个按键为什么没用呢? 点了没反应. 而按了确定键以后却取不到KSJ的值.</p>

sailorcwx 发表于 2008-10-17 15:51:00

<p>确认键虽然叫ok_only,但它的key应该是accept</p>
页: [1]
查看完整版本: DCL