如何在单击窗体右上角的关闭按钮时不关闭窗体？

[KingI]

如何在单击窗体右上角的关闭按钮时不关闭窗体？

[Tensionli]

可，楼上正解

[ccrun.com]

最好在程序中设置一个变量，不允许退出的时候置为False,然后在窗体的OnCloseQuery事件中判断这个变量，如 CanClose := 变量;

在正常情况需要退出时，将此变量置为True就行了。

[SiTwo]

1楼正解

[chenylin]

ccrun(老妖)(www.ccrun.com) 才是正解.

[纯冰糖]

都对，同样的道理

[纯冰糖]

只不过直接写成1楼的代码退出程序稍微麻烦些吧？！呵呵

[cuteant]

呵呵，既然楼主有这样的要求，那就不能用正常思维去思考：）

[darji]

procedure Tmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if main.Visible=true then
begin
if messagedlg('要退出本系统吗?',mtconfirmation,[mbyes,mbno],0)=idno then
canclose:=false;
end;
end;

[cuteant]

在OnCloseQuery事件里面写
CanClose := false;