[求助]DCL对话框右上角的叉叉按钮如何才能点击关闭
本帖最后由 作者 于 2009-2-5 13:00:10 编辑 <br /><br /> <p>DCL对话框右上角的叉叉按钮，如何才能点击将其对话框关闭。</p><p>不知是在DCL中还是在LISP中设置可是有什么控制，请教明经上的高人。</p><p>感谢明经</p> <p>试试<br/>: button {//自定义一个退出按钮<br/> key = "cancel";//退出与确定的区别:确定为key = "accept";<br/> label = " 退 出 ";<br/> is_cancel = true;<br/>// is_default = true;<br/> fixed_width = true;//使按钮外框的宽度收缩到恰好可以容纳其内部的文字<br/> alignment = centered;//使按钮居中放置<br/> <br/> }<br/></p> <p>敢问楼主是怎么设置点叉叉关不掉的?</p><p>DCL代码拿上来看看吧</p> <p>感谢猫大侠:</p><p>类似这个画柱截面的对话框界面,点右上角叉叉关不掉</p><p>请问是在什么文件中如何设置?</p><p> ZJ : dialog{<br/> label="画柱截面";<br/>spacer_1 ;//加空行--()<br/> :boxed_radio_column{<br/> label=" ";key="";<br/> :edit_box {//编辑框是允许用户在其中输入或编辑单行文字的控件。<br/> label= " 1、柱截面宽 :" ;//编辑框左边的名称<br/> key="ZJ-01" ;//指定一个 ASCII 名称，即为行数后的文本框指定一个代码<br/> edit_width=9 ;//以平均字符宽度为单位指定 edit_box 控件中编辑框或输入框的文本区宽度。<br/> }//截面长编辑框完,以下编辑框类同</p><p> :edit_box {//编辑框是允许用户在其中输入或编辑单行文字的控件。<br/> label= " 2、柱截面高 :" ;//编辑框左边的名称<br/> key="ZJ-02" ;//指定一个 ASCII 名称，即为行数后的文本框指定一个代码<br/> edit_width=9 ;//以平均字符宽度为单位指定 edit_box 控件中编辑框或输入框的文本区宽度。<br/> }</p><p> :edit_box {//编辑框是允许用户在其中输入或编辑单行文字的控件。<br/> label= " 3、柱每边钢筋根数 :" ;//编辑框左边的名称<br/> key="ZJ-03" ;//指定一个 ASCII 名称，即为行数后的文本框指定一个代码<br/> edit_width=9 ;//以平均字符宽度为单位指定 edit_box 控件中编辑框或输入框的文本区宽度。<br/> }</p><p> :popup_list{ //下拉选单<br/>label=" 4、图形放大倍数 :";key="ZJXL-060117";<br/>edit_width=8;<br/>}<br/>spacer_1 ;//加空行--()<br/> }</p><p> :row{//其下为水平排列<br/> : button {//自定义一个确定按钮<br/> key = "accept";//退出与确定的区别:退出为key = "cancel";<br/> label = " 画 柱 截 面 ";<br/> is_default = true;//缺省按钮<br/> fixed_width = true;//使按钮外框的宽度收缩到恰好可以容纳其内部的文字<br/> alignment = centered;//使按钮居中放置<br/> }<br/>: button {//自定义一个退出按钮<br/> key = "cancel";//退出与确定的区别:确定为key = "accept";<br/> label = " 退 出 ";<br/>// is_default = true;<br/> fixed_width = true;//使按钮外框的宽度收缩到恰好可以容纳其内部的文字<br/> alignment = centered;//使按钮居中放置<br/> <br/> }<br/> }<br/> }</p> <p>当没有使用标准 Ok_Only ok_cancel 之类的控件时</p><p>使用自定义确认取消就会这样</p> (action_tile "cancel" "(done_dialog 0)") 2023年10月，补充使用自定义确定按钮，未使用标准控件下，实现右上角关闭按钮能正常退出的按键动作行为，代码如下： 2023年10月补充，使用自定义确定按钮，未使用标准控件下，实现右上角关闭按钮能正常退出的按键动作行为，代码如下：(action_tile "quit" "(done_dialog 0)(exit)")
PS：为什么用win10，edge浏览器，评论不好发上来呢
页:
[1]