首先，我有一个“主表单”，我在上面加了一个退出按钮，里面这样写：

Clear events
thisform.release
quit

同时 我的main.prg主程序里有这样一段：

DO form 主表单.scx

Read Events &&开始事件处理：使启动封面停下来
_Screen.Show &&显示VFP主窗口
Read Events &&开始事件处理
RETURN

clea all
close all data

Quit

这里的问题是，我点击“退出”按钮就关闭了主表单，但是vfp的白色大窗口还在那里，无法退出，只能用windows的“结束进程”。。。这个问题出在哪里呢？

~~~~~~~~~~~~~~~~~~~~~~~~
是不是可以理解成我的“退出按钮”没有退出“VFP主窗口”？如果是这样的话，如何通过“退出按钮”完全退出呢？

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



补充上传三版源程序，放在任意位置，运行main.prg即可：

我新上传了三版程序，请大家看看，分别是：

1、这一版点按钮变白板无法退出，而点击红叉虽然能退出但是有vfp6进程，只能三个键结束进程。
主表单 的 QueryUnload  里面没有写代码。

2、这一版点按钮变白板，而点击红叉无效
主表单 的 QueryUnload  里面写：
NODEFAULT

3、这一版点按钮变白板，红叉可退出
主表单 的 QueryUnload  里面写：
NODEFAULT

~~~~~~~~~~~~~~~~~~~~~~~~~~~
我的目的是想在这个小例子里

1、搞清楚 QueryUnload 的作用
2、实现“点按钮正常退出，而点击红叉无效”

[此贴子已经被作者于2016-3-29 20:53编辑过]

谢谢，但是。。。不行，是不是因为我的主表单有几个修改：

ShowWindow  是： 2-作为顶层表单
WindowState  是： 0 -普通
WindowsType 是 ： 1 -模式

这么设置的目的是在网上查了很久的“一闪而过”问题的解决方法。。。只有这样设置了。。。

我新上传了三版程序，请大家看看，分别是：

1、这一版点按钮变白板无法退出，而点击红叉虽然能退出但是有vfp6进程，只能三个键结束进程。
主表单 的 QueryUnload  里面没有写代码。

2、这一版点按钮变白板，而点击红叉无效
主表单 的 QueryUnload  里面写：
NODEFAULT

3、这一版点按钮变白板，红叉可退出
主表单 的 QueryUnload  里面写：
NODEFAULT


~~~~~~~~~~~~
我的目的是想在这个小例子里：

1、搞清楚 QueryUnload 的作用
2、实现“点按钮正常退出，而点击红叉无效”

[此贴子已经被作者于2016-3-29 20:53编辑过]

那个。。。请问如何“设置关闭按钮无效”？我觉得我用QeuryUnload 是不是不对？

我将主程序改为（把第二个Read Events、RETURN都注释掉）：

DO form 主表单.scx

Read Events &&开始事件处理：使启动封面停下来
_Screen.Show &&显示VFP主窗口
**Read Events &&开始事件处理
**RETURN

clea all
close all data

Quit

但是第一个压缩包的程序，还是一点红叉，退出后，后台还是出现VFP6进程。。。。。

谢谢，我刚才试了一下，好像

主表单 的 QueryUnload  里面把这两个都写上，可以解决红叉退出后，后台还有进程的问题。。。
NODEFAULT


问题是解决了，结贴，但是总感觉还是不太懂 QueryUnload 到底是怎么个意思。

目前我主观理解就是 NODEFAULT 使得红叉无效，然后又自动去执行 按钮2的退出。。。。

但是vfp为啥要设计成这样呢？想不太明白。。。。非要对小红叉这样人工处理一下才保险，否则的话后台总有vfp6的进程，对初学者来说真是费解啊。。。。

[此贴子已经被作者于2016-3-29 21:19编辑过]

谢谢，解答太全面了。只是对 模式表单WindowType 这块始终不太明白