怎样在Form的OnClose事件中是OnClose事件失效？(50分)

PigDong · 2002-11-28

就是单击窗体右上角的关闭按钮，怎样是他失效！不能把按钮去掉

xianguo · 2002-11-28

在FormCloseQuery事件中加上 CanClose:=false;

lb_icesea79 · 2002-11-28

Action:=caFree;

dedema · 2002-11-28

写下：
action:=canone;

form1. · 2002-11-28

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Run;
end;
你试试

PigDong · 2002-11-28

接受答案了.

春意 · 2002-11-28

1、先定义一个全局变量：var a:boolean;2、在onclose中写：
s:=false;
if s then close();
3、在窗体上放一按钮，名为关闭！Onclick中写：
s:=true;
if s then close();