本文整理自网络,侵删。
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 错误no ftp list parsers have been registered
Delphi 7zip 示例调用7z.dll 压缩及解压.7z文件
Delphi sysutils.comparestr、sysutils.comparetext - 字符串比较
更多相关阅读请进入《Delphi》频道 >>