Question

不能退出visual foxpro

连编为可执行程序后,点击页面的退出(thisform.release,quit)可以退出整个程序,但如果直接按右上角的X按纽,则提示不能退出visual foxpro. 请问为什么

Answer 1

如果你的顶层表单使用的Read EVENTS建立的，那么在表单的Destroy事件中需增加Clear EVENTS命令才能停止事件处理监控。

通常我的做法是建立一个main.prg，做为项目的主文件（在项目管理器中点右键点“设置主文件”），里面设置初始参数和变量，并调用顶层表单，然后执行Read EVENTS创建事件处理机制，
在顶层表单的Destroy事件中增加Clear EVENTS命令，这样就会在点击右上角的X时退出程序，返回main.prg的Read EVENTS下一行，你设定一个quit就可以完全退出程序了。

main.prg示例
set date ansi
set hours to 24
set century on
on key label F1 *
do form main.scx
read events
quit

其中，main.scx就是你创建的顶层表单了，在它的Destroy事件中增加Clear EVENTS即可

Answer 2

在Form的Destory过程中加上两句
dodefault
quit

追问

form可以退出,但无法退出FORM所依附的VISUAL FOXPRO