很多时候程序可能不能让使用者关闭窗口(比如登入窗口),在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.