如何能关闭顶层表单

[lvwan]

如何能用顶层表单标题上的close按钮关闭表单，但是要弹出yes or no 选项。

[gzl]

应该加在一个事件里，但这个事件名我忘，你查一查手册吧

[hnpyz]

IF MessageBo( "您需要关闭此表单吗？" 1 ＋ 32 “提 示”= 6
ThisForm.Release()
ELSE
Return
ENDIF

[hnpyz]

IF MessageBox( "您需要关闭此表单吗？", 1 ＋ 32, “提 示”) = 6
ThisForm.Release()
ELSE
Return
ENDIF

[lvwan]

请问楼上的，这几句加在哪个事件里？
告诉我一下啦。

[rover2000]

Click Event

[bbdognc]

haha你说的那个叉是系统默认生成的，你在属性设置中讲maxbutton和minbutton设置为假。然后多添加一个命令控件写楼上的程序即可。

[lvwan]

是要按标题栏右上角的'X'关闭按钮使程序关闭，但要弹出yes or no
如果是no,则不关闭，现在我一按"X"顶层表单就关闭了。

[lvwan]

我记得用C++builder可以有一个中间事件来完成的，如果选放弃关闭就
可以返回原事件，但foxpro找不到这个功能。不会要用api吧。急。

[haona]

在 queryunload() 中
IF MessageBox( "您需要关闭此表单吗？", 1 ＋ 32, “提 示”) = 6
ThisForm.Release()
ELSE
nodefault
ENDIF

[haona]

very very sorry!!

在 queryunload() 中
IF MessageBox( "您需要关闭此表单吗？", 1 ＋ 32, “提 示”) = 1
ThisForm.Release()
ELSE
nodefault
ENDIF

[lvwan]

非常感谢大家的支持，现结帖。