小白求助一个小问题，望大师不吝赐教

明天你好

(action_tile "th" "(setq scl (distof $value))")
请问这一句是什么意思啊？ th是对话框上edit_box的key ,用于输文字高度的，

如何才能使用edit_box只接受数字，不接受字母？
如何让输入的值具有记忆功能，就是说输字高后，下次再启动对话框，值还是上次输入的那个。

zxq0220

含义：当该项目活动时将该项目的内容转换成浮点数。
要想使输入为数字，只能在项目活动时对输出的值进行判断，并强制定位停靠该项目。
要想记住上次的输入值，要将输入值保存在变量中，在程序中判断这个变量，如果无变量内容则使用默认内容，否则用变量内容填入项目。

明天你好

zxq0220 发表于 2015-4-9 09:44
含义：当该项目活动时将该项目的内容转换成浮点数。
要想使输入为数字，只能在项目活动时对输出的值进行判 ...

谢谢大师指点，能不能写两句示例？

明天你好

zxq0220 发表于 2015-4-9 09:44
含义：当该项目活动时将该项目的内容转换成浮点数。
要想使输入为数字，只能在项目活动时对输出的值进行判 ...

大师，迫切地需要一个示例，能帮我写个简单的示例吗？

明天你好

(setq dcl_id (load_dialog <editbox.dcl> ) dd 1)

(new_dialog "editbox" dcl_id)

(action_tile "accept" "(setq *memory* (get_tile \"number\"))(done_dialog 0)")

谁能帮我解释这几句是什么意思啊 ？作用又是什么？

zxq0220

第一句是从盘上加载对话框文件。但文件名写的不对，要用双引号括起来。
第二句是显示对话框
第三名是对对话框动作响应的。当点下了[确定]后的操作。

明天你好

zxq0220 发表于 2015-4-13 16:43
第一句是从盘上加载对话框文件。但文件名写的不对，要用双引号括起来。
第二句是显示对话框
第三名是对对 ...

大师，谢谢指定啊，但是还有一点不明白

(setq dcl_id (load_dialog <editbox.dcl> ) dd 1)  这一句后面的dd 1 是什么意思？

(action_tile "accept" "(setq *memory* (get_tile \"number\"))(done_dialog 0)")  这一句，我知道是定义确定键的，但后后面每个括号里的是什么意思呢？ 如果要跟(action_tile "accept" "(setq result 1)(done_dialog)") 合并，要怎么做呢？

还望大师继续指教！

zxq0220

后面的dd 1是对dd赋值1
将(setq result 1)加到引号中就行。但(done_dialog)不对，不能加入
前面的(done_dialog 0)也要改成(done_dialog 1)才对