yang686526

我的dcl好差，帮帮我
www.dimcax.com
我的dcl好差，帮帮我
changetext:dialog{
label="编辑文字";
:edit_box{
label="文字";
value="文字的内容";
edit_width=50;
}
spacer_1;
ok_cancel;
}
各位大师，我的dcl好差，我想问问，
1、怎么样写才能够让dcl一启动时就让文字的内容为默认的修改对象
2、在按下确定后，如何生到我改后的值啊？
d
1.(mode_tile key 2)设计聚焦控件
2.button -> default_button
d
(setq dclname
(cond
((setq tempname (vl-filename-mktemp "ko-dcl-tmp.dcl") filen (open tempname "w"))
(foreach stream
'(
"changetext:dialog{\n"
" label=\"编辑文字\";\n"
" :edit_box{\n"
" label=\"文字\";\n"
" key=\"ff\";\n"
" edit_width=50;\n"
" }\n"
" spacer_1;\n"
" ok_cancel;\n"
"}\n"
)
(princ stream filen)
)
(close filen)
tempname
)))
(setq dclid (load_dialog dclname))
(if (not (new_dialog "changetext" dclid)) (progn (alert "dcl对话框加载失败.")(exit)))
(set_tile "blk" "")
(set_tile "ff" "ddd")
(mode_tile "ff" 2)
(action_tile "accept" "(done_dialog)")
(start_dialog)
(setq a (get_tile "ff"))
(unload_dialog dclid)
(vl-file-delete dclname)
怎么 得到不到我要的值啊
d
有人帮我一下，行行好吗，前辈们
d
caoyin老大，给个例子我学习一下啦
d
done_dialog之后再get_tile就没用了，如果有数据要读取，需要在done_dialog之前
(action_tile "accept" "(setq a (get_tile \"ff\"))(done_dialog)")
或者另行定义一个函数，再运行done_dialog
(action_tile "accept" "(get-data)(done_dialog)")