在编辑框中修改数据,按回车键能修改数据,但按"取消"按钮时却不能取消修

wdb · 发表于 2003-11-17 11:05:00

在编辑框中修改数据,按回车键能修改数据,但按"取消"按钮时却不能取消修改.不会是死结吧？请高手解结。[br]我想在编辑框中输入数据后直接按回车键就能接受数据并退出对话框,这样操作起来更方便.但却发现按"取消"按钮时还是接受数据.原来是编辑框的回调起作用后已经退出了对话框,所以按回车,确定,取消时效果都一样,全部是接受数据.如何才能达到按回车或确定时能修改数据而按取消时不修改数据?

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

wdb · 发表于 2003-11-17 14:13:00

能将改后的程序贴出来吗？

BDYCAD · 发表于 2003-11-18 11:25:00

沒有

hoprich123 · 发表于 2003-11-18 11:43:00

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:rubk5diiocc.lsp
下载次数:0 文件大小:558 Bytes 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

wdb · 发表于 2003-11-18 12:15:00

还是不能满足要求。我要求在编辑框中数据输入完后，焦点还在编辑框时直接按回车键就接受数据，并退出对话框，而不是使用鼠标来按“确定”。我原来的程序能达到这个要求，但却产生了负作用，就是当用鼠标按“取消”按钮时还是接受了数据，我的本意是不接受数据。ns的值是无所谓的，关键是对话框退出后是否处理这个值所引起的作用。怪我没表达清楚。
(defun c:bb (/ dli ns rr)
  (setq dli (load_dialog "mytest.dcl"))
  (if (null (new_dialog "mydcl" dli))
(exit)
  )
  (set_tile "tt" "5566")
  (mode_tile "tt" 2)
  ;(action_tile "tt" "(setq ns $value)")
  (action_tile "tt" "(setq ns $value) (done_dialog 1)");数据输入完后回车能接受数据
  (setq rr (start_dialog))
  (if (= rr 1)
(progn
   (alert "已接受新数据!")
   ;在这里处理变量ns对程序的影响
   (if (= ns "8899")
      (princ "How are you")
      (princ "It is fine")
   )
)
(progn
   (alert "没有接受新数据!")
   ;在这里对ns的值不作处理,不管它是不是原来的值
)
  )
  (unload_dialog dli)
  (princ)
)