请教怎样判断DCL中edit_box的值是否修改过

冒个烟圈

如题：
比方说edit_box的key=str1
那么
    (if newstr1
      (set_tile "str1" newstr1)
      (set_tile "str1" "test");默认
    )
(action_tile "str1" "(setq newstr1 $value)")
;;;像上面这样写不能判断edit_box的值是否修改过了，每次都要用鼠标虚点几下才行
请问还有更好的方法吗？
路过的指点一下呀，谢谢！

masterlong

edit_box支持“点击”操作吗？

冒个烟圈

masterlong 发表于 2018-7-4 18:35
edit_box支持“点击”操作吗？

D:\捕获.PNG
可能是我没说清楚，我想用第二个框的数字2018.07.05替换第一个框的2013.00.00
图片中的第二个框，为减少输入时间设置的默认值是 2018.07.05
可是执行的时候却不起作用，要么重新输入一次才行，要么用鼠标虚点几下那串数字才行

masterlong

建议你把动作代码设定为
(action_tile "str1" "(princ (list $key $value $reason))(princ)(setq newstr1 $value)")
然后仔细观察一下不同操作的输出

冒个烟圈

masterlong 发表于 2018-7-5 08:59
建议你把动作代码设定为
(action_tile "str1" "(princ (list $key $value $reason))(princ)(setq newstr1  ...

首先感谢您的指点
可能我的功力还太差，试过了没什么效果；
测试的代码发上来，希望您抽空帮我诊断诊断，
主要函数收集于本论坛，只按自己的想法组合一下，见笑了。

masterlong

edit_box的action生效发生在“焦点”转移之后
具体就是双引号之间的内容

你顶楼的代码
if语句只在初始话对话框时有效
action_tile语句仅仅只有一个动作
即赋值参数newstr1
并没有再次调用if语句

冒个烟圈

masterlong 发表于 2018-7-5 09:41
edit_box的action生效发生在“焦点”转移之后
具体就是双引号之间的内容

还恳请帮忙完善一下，谢谢

nzl1116

冒个烟圈 发表于 2018-7-5 11:01
还恳请帮忙完善一下，谢谢

(action_tile "str2" "(set_tile \"str1\" (get_tile \"str2\"))")

894560869

仰慕版主啊 感谢分享源码！

oistre

很好 很强大