- A+
先看图用lisp调用的对话框
用dcl做对话框，要想像vb，c++那样任意摆放位置，你还是省点；力气吧！
在dcl里面做对话，要想达到指定的位置必须使用容器控件，意思就是一个容器里面装那些控件，因为容器可以调整大小，和位置，其他控件有限，
这个容器:row，不显示外框，所有看不出有什么约束着什么控件。
:boxed_column，竖着容器控件
:radio_row，横着容器控件，
这样使用后，:radio_button控件就是2组控件，点击的时候也是2组，要想变成一组，必须在lisp文件里面写按钮事件，选中其中一个取消其他的选中即可。
/*★huojibk.com★*/
huojibk:dialog {
children_fixed_width = true ;
label = "伙计百科网站提供" ;
width = 60 ;
:edit_box {
fixed_width = true ;
label = "请输入代码" ;
value = "huojibk.com" ;
width = 70 ;
}
:row {
:boxed_column {
children_alignment = left ;
fixed_width = true ;
label = "综合功能" ;
width = 50 ;
:radio_row {
:radio_button {
label = "伙计百科" ;
}
:radio_button {
label = "huojibk.com" ;
value = "1" ;//默认选中
}
:radio_button {
label = "打开网站" ;
}
}
:radio_row {
:radio_button {
label = "测试1 " ;
}
:radio_button {
label = "测试2 " ;
}
:radio_button {
label = "你很狂" ;
}
}
}
:button {
action = "(startapp \"explorer.exe\" \"http://huojibk.com/\") " ;
alignment = right ;
fixed_width = true ;
height = 5 ;
label = "详情" ;
width = 15 ;
}
}
ok_cancel;
}
复制
