如何控制form的关闭？

Question

我不想让用户用右上角的关闭键或者用alt+F4来关闭程序，如何实现？

Answer 1

CloseQuery事件
canclose ＝ false

Answer 2

CloseQuery事件
canclose ＝ false
  
//--------------哪岂不是没发关闭了吗，最好加一个判断。满足条件就关闭

Answer 3

OnClose事件中，Action := caNone;

Answer 4

让窗体上的关闭按钮变灰
var
  mnu:Hmenu;
begin
  mnu:=getsystemmenu(handle,false);
  enablemenuitem(mnu,SC_CLOSE,MF_BYCOMMAND+MF_DISABLED+MF_GRAYED);
end;

Answer 5

CloseQuery事件
canclose ＝ false