如何在窗口关闭按钮被点击时，使窗口不发送关闭消息，而继续运行。

Question

我想在窗口关闭按钮被点击时，使窗口最小化而不是关闭，如何实现，各位高手请指点！！

Answer 1

在Form的OnCloseQuery事件中：
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Application.Minimize;
  CanClose := False;
end;

Answer 2

同意楼上sysu(死树) (观点)

Answer 3

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  canclose:=False;
  Form1.windowstate:=wsMinimized
end;如果你要关闭的话用
procedure TForm1.Button2Click(Sender: TObject);
begin
  form1.Destroy//或者form1.Free
end;