实际应用中，不禁用窗口标题栏上的关闭按钮，而又想在关闭表单时执行“退出”按钮中的代码，还有一种方法：
在表单的 QueryUnload 事件中输入以下代码：
NODEFAULT
THIS.cmdExit.Click

vfp9测试，不能正常退出系统。

FoxPro For Windows Ver. 2.5B 也可以只用一个表单文件创建一个 EXE 文件，不需要 PRG 文件，但 FPW 的表单文件叫屏幕文件 SCX。

1. Project 中 Chinkin.Scx 设置为主文件：


2. 打开/编辑 Chinkin.Scx 屏幕文件的界面：


3. 运行 EXE 文件的界面：

谢谢 飞狐老师回帖回得这么仔细，受益匪浅，很多细节上的东西，你不指出来我还真不知道，但是要想提高，不注意细节不行，尤其现在和别人合作搞项目的时候，一个控件命名不规范，确实会让别人难读，老师指点得对，再次感谢。

按下面事件代码测试了一下：

** this.Load
ASTACKINFO(a程序)
SET DEFAULT TO ADDBS(JUSTPATH(a程序[2]))     
STRTOFILE("form.load"+0h0D0A, "tmp.txt")

** this.Init
STRTOFILE("form.init"+0h0D0A, "tmp.txt", 1)

** this.Activate
IF !EMPTY(this.Tag)
    RETURN
ENDIF
this.Tag = "1"
STRTOFILE("form.Activate READ EVENTS"+0h0D0A, "tmp.txt", 1)
READ EVENTS

** this.GotFocus
IF this.Tag > "1"
    RETURN
ENDIF
this.Tag = "2"
STRTOFILE("form.GoFocus"+0h0D0A, "tmp.txt", 1)

** this.QueryUnload
STRTOFILE("form.QueryUnload CLEAR EVENTS"+0h0D0A, "tmp.txt", 1)
CLEAR EVENTS

** this.Destroy
STRTOFILE("form.Destroy"+0h0D0A, "tmp.txt", 1)

** this.Unload
STRTOFILE("form.Unload"+0h0D0A, "tmp.txt", 1)

**
thisform.Release
STRTOFILE("Command1.Click CLEAR EVENTS"+0h0D0A, "tmp.txt", 1)
CLEAR EVENTS

点窗口标题关闭按钮顺序：
form.load
form.init
form.Activate READ EVENTS
form.GoFocus
form.QueryUnload CLEAR EVENTS
form.Destroy
form.Unload

点Command1关闭按钮顺序：
form.load
form.init
form.Activate READ EVENTS
form.GoFocus
Command1.Click CLEAR EVENTS
form.Destroy
form.Unload

[此贴子已经被作者于2016-1-13 09:20编辑过]