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

[求助]dcl对话框右上角的叉叉按钮如何才能点击关闭
www.dimcax.com
[求助]dcl对话框右上角的叉叉按钮如何才能点击关闭
dcl对话框右上角的叉叉按钮，如何才能点击将其对话框关闭。
不知是在dcl中还是在lisp中设置可是有什么控制，请教明经上的高人。
感谢明经
d
敢问楼主是怎么设置点叉叉关不掉的?
dcl代码拿上来看看吧
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
感谢猫大侠:
类似这个画柱截面的对话框界面,点右上角叉叉关不掉
请问是在什么文件中如何设置?
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;//使按钮居中放置

}
}
}
对话框文件必须配合 画柱截面.lsp 文件才能显示相应对话框。
文件预览:
d
当没有使用标准 ok_only ok_cancel 之类的控件时
使用自定义确认取消就会这样
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
试试
: button {//自定义一个退出按钮
key = "cancel";//退出与确定的区别:确定为key = "accept";
label = " 退 出 ";
is_cancel = true;
// is_default = true;
fixed_width = true;//使按钮外框的宽度收缩到恰好可以容纳其内部的文字
alignment = centered;//使按钮居中放置

}
.
贱人工具箱 5.3
只有我最贱，没有人比我贱!
.
d
(action_tile "cancel" "(done_dialog 0)")