怎么就不对呢???如何真正关闭对话框!!!!!!!!!

挚友01 · 发表于 2016-3-20 11:05:35

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由挚友01 于 2016-3-20 11:11 编辑

(defun c:PDPBZ_Form1_TextButton10_OnClicked (/ tem f c)  ; 非模态对话框的返回返回
(dcl_Form_Close pdpbz_form1 1)
(dcl_Project_Unload "pdpbz" T)    ; 非模态对话框
(setq doContinue T)
(while doContinue
  (setq doContinue nil)
  (setq intResult (dcl_FORM_SHOW PDPBZ1_Form1))
  (cond
   ((= intResult 1) (setq doContinue nil))
   ((= intResult 2) (setq doContinue nil))
   ((= intResult 3) (PDS_QY_DCL))
   ((= intResult 4)
      ;(dcl_Project_Unload "pdpbz")
      (setq c 1)

      ;(PDP-HZdcl)       PDP-HZdcl中有CAD的(command ....  在这里也试了
   )
); cond
)
(dcl_Project_Unload "pdpbz1" T)
(if (= intResult 4)(PDP-HZdcl))
)
(defun c:PDPBZ1_Form1_GraphicButton3_OnClicked (/ )  ; 准备执行PDP-HZdcl
(dcl_Form_Close pdpbz1_form1 4)
)执行PDP-HZdcl子程序出错了，不能执行(command ....
怎么彻底地关闭这两个对话框????????????????????????????????

newer · 发表于 2016-3-20 15:45:01

ONCLOSE事件处理函数里面关闭对话框

挚友01 · 发表于 2016-3-20 19:20:55

(defun c:PDPBZ_Form1_OnClose (i1 i2 /)
;(dcl_Form_Close pdpbz_form1 1)
(dcl_Project_Unload "pdpbz")
)
没得要领，请指教...

newer · 发表于 2016-3-20 21:44:12

挚友01 发表于 2016-3-20 19:20
(defun cDPBZ_Form1_OnClose (i1 i2 /)
;(dcl_Form_Close pdpbz_form1 1)
(dcl_Project_Unload "pdpbz" ...

把Studio里面 OnClose OnCancel 事件都给勾上。你按ESC键就应该退出对话框的

挚友01 · 发表于 2016-3-20 22:25:21

全都勾上试过了，不行，是想要正常退，从一个非模态对话框返回到主模态对话框...

账号		自动登录	找回密码
密码			立即注册

[求助] 怎么就不对呢???如何真正关闭对话框!!!!!!!!!

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评