怎么样在close事件中终止窗口关闭

Question

如题!

Answer 1

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone;
end;要不拦截WM_QUERYCLOSE消息

Answer 2

有CloseQuery事件，干嘛还拦消息那么麻烦……

Answer 3

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

Answer 4

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
end;或者procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := CaNone;
end;都可以，呵呵...偷懒了。