Delphi中禁止使用Alt+f4关闭窗口

最新推荐文章于 2020-11-18 05:56:51 发布

原创最新推荐文章于 2020-11-18 05:56:51 发布 · 3.7k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#delphi

收录于

本文介绍了一个关于WM_SYSCOMMAND消息处理的过程。当接收到WM_SYSCOMMAND消息时，程序会检查命令类型是否为关闭操作(SC_CLOSE)，如果不是，则调用父类方法继续处理。这种处理方式常用于定制窗口的关闭行为。

procedure WMSysCommand(var   Msg:   TWMSysCommand);   message   WM_SYSCOMMAND;  
 
procedure   TForm1.WMSysCommand(var   Msg:   TWMSysCommand);  
begin  
    if   Msg.CmdType   <>   SC_CLOSE   then  
        inherited  
  end;   