让程序最小化到任务栏的时候隐藏

今天下载并安装了TrayIcon控件，感觉很好，但是有一点，程序最小化的时候在任务栏界面依然保存那个按钮，有时候是需要隐藏的，这时候可以按如下方法做：

核心思想：截获 WM_SYSCOMMAND消息，看窗体是否处于最小化状态

====================================================================================

type
TForm1 = class(TForm)
private

//在此处添加下面一行
procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
//主要是添加上面一行
end;
implementation
{$R *.DFM}

//把下面的代码复制粘贴到代码中即可
procedure TForm1.WMSysCommand(var Message:TMessage);
begin
if Message.WParam = SC_ICON then //最小化了.最大化 SC_ZOOM,关闭:SC_CLOSE，可以灵活选择
begin
form1.hide;//可以配合TrayIcon以及弹出菜单实现恢复显示form1.show;
end
else
inherited;//很重要的.否则将导致窗体不能移动等若干问题
end;

//把上面的代码复制粘贴到代码中即可

=======================================================================================

这样一来效果就出来了！