禁止用鼠标或Alt+F4关闭窗口

很多时候程序可能不能让使用者关闭窗口(比如登入窗口)，在BCB或Delphi中可以设置Form的BorderIcons->biSystemMenu为false，但是这又有一个新问题，它把最大化和最小化按钮都隐藏了，换一种办法，把关闭按钮变灰(Disabled)，如下:

变灰:
EnableMenuItem(GetSystemMenu(Form1->Handle,False),SC_CLOSE,MF_BYCOMMAND|MF_GRAYED);
恢复:
EnableMenuItem(GetSystemMenu(Form1->Handle,False),SC_CLOSE,MF_BYCOMMAND|MF_ENABLED);

这样解决了鼠标关闭问题,但是如果使用快捷键Alt+F4或者Ctrl+F4(MDI子窗体)还是可以把窗口关闭,这次就要拦截键盘的输入或者系统消息了:

方法一(拦截键盘输入):
在窗体的OnKeyDown事件中:
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    //如果是MDI子窗体,把ssAlt换成ssCtrl
    if (Shift.Contains(ssAlt) && Key==115) {
        Key = 0;
    }
}

方法二(拦截系统消息):
.H
...
public:
    MESSAGE void __fastcall SetSysCommand(TWMSysCommand &msg);

    BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_SYSCOMMAND, TWMSysCommand, SetSysCommand)
    END_MESSAGE_MAP(TForm)
...

.CPP
MESSAGE void __fastcall TForm1::SetSysCommand(TWMSysCommand &msg)
{
    if (msg.CmdType == SC_CLOSE)
        msg.CmdType = SC_DEFAULT;

    //这个用来继续传递消息,必须要加,否则连其他TWMSysCommand命令都失效了
    TForm::Dispatch(&msg);
}

方法一可以用鼠标关闭,而方法二比较彻底,但是关闭按钮还是可以响应鼠标点击的(只是没有反应),所以结合使用变灰按钮与这两种方法之一可以得到最好的效果.

enjoy.