关于VFP表单右上角的关闭按钮

主题：关于VFP表单右上角的关闭按钮

有约故人来 [专家分：50] 发布于 2009-03-27 23:19:00

我有一表单，需实现如下目的：
  当点击右上角的关闭按钮时出现一个提示窗口，并取消刚才的关闭窗口的动作。如何实现？当然可以将closeble属性设为“.F.”,但那不是我的目的。
  请各位指点！
  谢谢！

沙发

笨兔 [专家分：300] 发布于 2009-03-28 09:26:00

在表单的QueryUnload事件上写信息代码.如:
MESSAGEBOX("要退出吗？",0+48,"提示")
就可以实现你要的功能了

板凳

有约故人来 [专家分：50] 发布于 2009-03-28 10:37:00

我在QueryUnload中用了如下语句：
yn=MESSAGEBOX("要退出吗？",4+48,"提示")
if yn=6
thisform.release()
else
return
endif

但当选择"N"时还是会退出表单，我的目的是当选择“N”是回原来表单，请再指点！谢谢！

3 楼

dkfdtf [专家分：90] 发布于 2009-03-28 12:47:00

yn = MESSAGEBOX("要退出吗？",4+48,"提示")
if yn <> 6
nodefault
endif

4 楼

笨兔 [专家分：300] 发布于 2009-03-28 14:14:00

支持3楼.
在表单的QueryUnLoad事件程序中执行NODEFAULT命令会使表单不被释放。

您尚未登录，请登录后再回复。点此登录或注册