[求助]DCL对话框右上角的叉叉按钮如何才能点击关闭

HRQ28

DCL对话框右上角的叉叉按钮，如何才能点击将其对话框关闭。

不知是在DCL中还是在LISP中设置可是有什么控制，请教明经上的高人。

感谢明经

贱人

试试
: button {//自定义一个退出按钮
   key = "cancel";//退出与确定的区别:确定为key = "accept";
   label = "  退  出  ";
   is_cancel = true;
//   is_default = true;
   fixed_width = true;//使按钮外框的宽度收缩到恰好可以容纳其内部的文字
   alignment = centered;//使按钮居中放置
  
  }

nonsmall

敢问楼主是怎么设置点叉叉关不掉的?

DCL代码拿上来看看吧

HRQ28

感谢猫大侠:

类似这个画柱截面的对话框界面,点右上角叉叉关不掉

请问是在什么文件中如何设置?

  ZJ : dialog{
 label="画柱截面";
spacer_1 ;//加空行--()
     :boxed_radio_column{
        label=" ";key="";
      :edit_box {//编辑框是允许用户在其中输入或编辑单行文字的控件。
         label= "  1、柱截面宽 :" ;//编辑框左边的名称
         key="ZJ-01" ;//指定一个 ASCII 名称，即为行数后的文本框指定一个代码
         edit_width=9 ;//以平均字符宽度为单位指定 edit_box 控件中编辑框或输入框的文本区宽度。
       }//截面长编辑框完,以下编辑框类同

  :edit_box {//编辑框是允许用户在其中输入或编辑单行文字的控件。
         label= "  2、柱截面高 :" ;//编辑框左边的名称
         key="ZJ-02" ;//指定一个 ASCII 名称，即为行数后的文本框指定一个代码
         edit_width=9 ;//以平均字符宽度为单位指定 edit_box 控件中编辑框或输入框的文本区宽度。
       }

  :edit_box {//编辑框是允许用户在其中输入或编辑单行文字的控件。
         label= "  3、柱每边钢筋根数 :" ;//编辑框左边的名称
         key="ZJ-03" ;//指定一个 ASCII 名称，即为行数后的文本框指定一个代码
         edit_width=9 ;//以平均字符宽度为单位指定 edit_box 控件中编辑框或输入框的文本区宽度。
       }

       :popup_list{ //下拉选单
label="  4、图形放大倍数 :";key="ZJXL-060117";
edit_width=8;
}
spacer_1 ;//加空行--()
       }

 :row{//其下为水平排列
    : button {//自定义一个确定按钮
   key = "accept";//退出与确定的区别:退出为key = "cancel";
   label = "    画  柱   截  面    ";
   is_default = true;//缺省按钮
   fixed_width = true;//使按钮外框的宽度收缩到恰好可以容纳其内部的文字
   alignment = centered;//使按钮居中放置
  }
: button {//自定义一个退出按钮
   key = "cancel";//退出与确定的区别:确定为key = "accept";
   label = "  退  出  ";
//   is_default = true;
   fixed_width = true;//使按钮外框的宽度收缩到恰好可以容纳其内部的文字
   alignment = centered;//使按钮居中放置
   
  }
    }
    }

nonsmall

当没有使用标准 Ok_Only ok_cancel 之类的控件时

使用自定义确认取消就会这样

caiqs

(action_tile "cancel" "(done_dialog 0)")

jun470

2023年10月，补充使用自定义确定按钮，未使用标准控件下，实现右上角关闭按钮能正常退出的按键动作行为，代码如下：

jun470

2023年10月补充，使用自定义确定按钮，未使用标准控件下，实现右上角关闭按钮能正常退出的按键动作行为，代码如下：
(action_tile "quit" "(done_dialog 0)(exit)")

PS：为什么用win10，edge浏览器，评论不好发上来呢