点击第1张图片中的关闭按钮，显示“不能退出visual foxpro"（如第2张图片）。
因此我在菜单上加了一个“退出”按钮。但是使用不方便。

主程序代码如下：

MODIFY WINDOW screen TITLE "XXXXXXX"
DO 菜单.mpr
DO FORM 主系统.scx
READ EVENTS
ENDPROC

如何修改才可以实现点击关闭按钮，退出exe。

可能是没有退出窗口的消息循环
在 form.Destroy 事件执行
CLEAR EVENTS

在 form.Destroy 事件执行

CLEAR EVENTS

后，我关闭“主系统”小窗口时就会直接退出整个exe。
我的想法是点击exe窗口右上角的关闭符号时，才能退出exe。
求教

最好提供相关代码文件测试
或将“XXXXXX”和“主系统”两个窗口精简到不能再精简，只要能运行和出现这个问题就可以

ON SHUTDOWN do 关闭系统
DO 菜单.mpr
DO FORM 主系统.scx
READ EVENTS
ON SHUTDOWN

PROCEDURE 关闭系统
    IF MESSAGEBOX('确定退出系统？',4+32+256,'询问')=7
        RETURN
    ENDIF
    ON SHUTDOWN
    CLEAR EVENTS
ENDFUNC

可以使用，谢谢。效果符合我的期望。

5楼回复的代码可已使用。