如何阻止关闭窗口？

Question

当点击关闭按钮时，如何阻止关闭窗口？
请给些实现代码。

Answer 1

再问一个，如何在form上不显示关闭按钮？

Answer 2

OnCloseQuery事件里这么写就可以了！
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox('真的要退出吗？', '提醒', MB_OKCANCEL + MB_ICONQUESTION) = mrOK then
  CanClose := True
else
  CanClose := False;
end;

Answer 3

让关闭按钮显灰！
EnableMenuItem(GetSystemMenu(Handle,False),SC_CLOSE,MF_GRAYED);

Answer 4

OnCloseQuery事件里这么写就可以了！
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
end;
//这样就关不掉