楼主的代码问题不少,看来很多问题并没有搞清楚。小结如下:
1. 对于主表单为模式表单来说(WindowType=1),根本用不到 Read Events语句,只有非模式表单才需要 Read Events
2. 顶层表单(ShowWindow=2)会忽略表单的 WindowType 设置,也就是说:顶层表单都是非模式的。
3. 主程序中为什么要加两个 Read Events?第二个 Read Events 应该删去
4. QueryUnload 只有在单击表单右上角的“关闭”按钮才会发生,而执行代码 THISFORM.Release 或 Release THISFORM 不会发生QueryUnload
5. 若想在关闭窗口时统一执行特定的操作,有多种方法。
可以在表单上新建一个退出按钮,并禁用表单的关闭按钮(form.Closable=.f.)。
还可以不禁用关闭按钮,而在form.QueryUnload事件中输入:
Nodefault
THIS.cmdExit.Click
还可以将退出时要统一执行的代码放在 Form.Destroy事件中。不管是 THISFORM.Release 还是单击窗口的关闭按钮,最后都会调用 Form.Destroy
[此贴子已经被作者于2016-3-30 08:47编辑过]