delphi截获和干扰窗体最小化�p最大化和关闭消息

本文整理自网络，侵删。

 
type
  TForm1 = class(TForm)
  ......
  public
    { Public declarations }
    procedure WMSysCommand(var Message: TWMSysCommand);message WM_SYSCOMMAND;
end;

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  if (Message.CmdType and $FFF0 = SC_MINIMIZE){ or
     (Message.CmdType and $FFF0 = SC_CLOSE) or
     (Message.CmdType and $FFF0 = SC_MAXIMIZE)} then
    Form1.Visible:=False // 隐藏窗体
  else
    Inherited;
end;

http://blog.chinaunix.net/uid-20564848-id-74477.html
 

相关阅读 >>

Delphi的format使用总结

Delphi tgpimage 把图像转存为其他格式

Delphi 逐个分解后字符串加载到stringgrid1

Delphi tchart使用经验小结

Delphi 如何确定windows安装的语言

Delphi 三个消息函数的威力

Delphi sysutils.stringreplace - 替换

Delphi 将dbgrid的数据导出到excel文件保存

Delphi 自带rest调试工具 restdebugger 用法

Delphi isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday ... 判断时间是否合法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi截获和干扰窗体最小化�p最大化和关闭消息