那个猎人 发表于 2014-5-23 16:41:27

dcl对话框退出

各位大神，小弟初学者，在编写DCL对话框中，想点击按钮后退出主对话框，打开二级对话框，这么写的(action_tile "button" "(C:erjiDCL)(done_dialog)"),但是点击后，主对话框没退出，二级对话框弹出来了，重叠了，应该怎么写呀。

自贡黄明儒 发表于 2014-5-23 16:53:52

"(done_dialog）(C:erjiDCL)"这样如何？
done_dialog是对话框消失的意思。

那个猎人 发表于 2014-5-23 17:04:26

自贡黄明儒 发表于 2014-5-23 16:53 static/image/common/back.gif
"(done_dialog）(C:erjiDCL)"这样如何？
done_dialog是对话框消失的意思。

不行，还是出现重叠现象

Gu_xl 发表于 2014-5-23 17:11:52

那个猎人 发表于 2014-5-23 17:04
不行，还是出现重叠现象

(C:erjiDCL)不能在对话框语句中，要放在 start _dialog 之后才行

那个猎人 发表于 2014-5-23 17:22:07

Gu_xl 发表于 2014-5-23 17:11 static/image/common/back.gif
(C:erjiDCL)不能在对话框语句中，要放在 start _dialog 之后才行

版主您好，我不是很明白，您能帮忙修改一下实现点击按钮退出主菜单，调用二级菜单吗？
(defun c:tt()
        (setq DCL_ID (load_dialog "form1.dcl"))
        (new_dialog "form1" DCL_ID)
      (action_tile "button""(done_dialog)(C:erjiDCL)")
        (start_dialog)
        (unload_dialog DCL_ID)
)

Gu_xl 发表于 2014-5-23 17:36:52

那个猎人 发表于 2014-5-23 17:22
版主您好，我不是很明白，您能帮忙修改一下实现点击按钮退出主菜单，调用二级菜单吗？
(defun c:tt()
       ...

(defun c:tt()
      (setq DCL_ID (load_dialog "form1.dcl"))
      (new_dialog "form1" DCL_ID)
      (action_tile "button""(done_dialog 2)")
       (setq code(start_dialog))
      (unload_dialog DCL_ID)
(if (= code 2) (C:erjiDCL))
)

那个猎人 发表于 2014-5-23 17:40:51

Gu_xl 发表于 2014-5-23 17:36 static/image/common/back.gif
(defun c:tt()
      (setq DCL_ID (load_dialog "form1.dcl"))
      (new_dialog "form1" DCL_ID ...

感谢版主搞定我的问题

magicheno 发表于 2023-11-8 01:27:58

Gu_xl 发表于 2014-5-23 17:36
(defun c:tt()
      (setq DCL_ID (load_dialog "form1.dcl"))
      (new_dialog "form1" DCL_ID ...

感谢大佬分享
页: [1]
查看完整版本: dcl对话框退出