请教表单的QueryUnload事件

laibinhua 发布于 2021-12-17 09:59， 1101 次点击

请教，我在表单的QueryUnload中如下：
IF MESSAGEBOX('确实要退出系统吗？',4+32+256,'提示信息:')=6
quit
ELSE
Nodefault
ENDIF
我点了是，它没有执行quit，只是关闭了表单，程序还在进程中，不知什么原因，后来我加上了表单的Destory事件
Clear Events
Set Library To
Clear Dlls
Close All
Quit
还是一样无法关闭进程，只是结束了表单

6 回复

laowan0012021-12-17 10:01

在quit之前加Clear Events试试

laibinhua2021-12-17 10:21

回复 2楼 laowan001

加了也不行

laowan0012021-12-17 10:44

回复 3楼 laibinhua

是编译过的EXE吧？
那就把 quit 换成 DODEFAULT()

表单的destroy中写上
CLEAR EVENTS

吹水佬2021-12-17 11:05

quit会触发QueryUnload事件
不想退出Nodefault就就可以
关闭表单应该放在释放表单的事件里处理

laibinhua2021-12-17 11:22

回复 5楼吹水佬

谢谢大佬回复

sam_jiang2021-12-18 10:27

QueryUnload 不是应该对“否”的情况做出响应吗？如果是“是”的话，就什么也不做，表单自然就关闭了。
表单的QueryUnload中代码应该是：

IF MESSAGEBOX('确实要退出系统吗？',4+32+256,'提示信息:')=7
Nodefault
ENDIF

编程逻辑需要转换过来。。。