点击窗口的"X"后不让他关闭而做我写在OnClose里的代码？

Question

我在OnClose事件里做我要实现的代码，而又不要关闭窗口和任何提示，怎么做？

Answer 1

在onCloseQuery里写
最后加上一句 canClose:=false;

Answer 2

OnClose事件里做我要实现的代码放到OnCloseQuery中

Answer 3

INeedCa(缺钙)  说的对呀可以在ONCLOSEQUERY中写你的代码。

Answer 4

对，把onClose中的代码全放在OnCloseQuery
onClose只放程序肯定将被关闭时才执行的代码

Answer 5

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
end;

Answer 6

那我然后又加了个按扭去close怎么就关不掉了？？？

Answer 7

Application.Terminate;就可以关上了

Answer 8

赫赫，加一个标志
var
  CloseNowFlag : Boolean;