帮帮忙

wangph

我编的以下程序为什么不能通过点击对话框右上角的关闭按鈕或用“Esc”键关闭对话框呢？只能点击“确认”才能关闭对话框。

aboutiti_dialog:dialog{
                  label="试验";
                  :boxed_column{
                               :text{
                                    label="Hello!";
                               }
                  }
                  spacer_1;
                  :ok_button{label="确认";}
              }

;;;Command
(defun c:aboutiti (/ dcl_id)
  (setvar "BLIPMODE" 0)
  (setvar "CMDECHO" 0)
  (if (< (setq dcl_id (load_dialog "ABOUTITI.DCL")) 0)
    (exit)
  )
  (if (not (new_dialog "aboutiti_dialog" dcl_id))
    (exit)
  )
  (start_dialog)
  (unload_dialog dcl_id)
  (princ)
)

carrot1983

对话框文件重写吧。。。格式不对

至于哪里不对，说不上来

sailorcwx

:ok_button{label="确认";}
改成
ok_only;

carrot1983

还真是这样子，真是奇哉怪也。

:ok_button{label="选择";}

为什么这样子就不行了呢？

有意思

wangph

高手给指点一下吧

飞诗(fsxm)

:button {
    is_cancel = true ; //这个管esc
    is_default = true ;//这个管enter
}

wangph

楼上所说的都解决不了我的问题呀

byghbcx

:ok_button{label="确认";
                  is_cancel= true;
                  }

这样不行吗？

ok_button是在BASE.DCL中已经定义的.里面没有is_cancel= true这一句

OK_ONLY是有这一句的,所以ESC能起作用.

wangph

这样可以了，多谢了