HanDs
NO.2

[Delphi文章] 让程序最小化到任务栏的时候隐藏 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

今天下载并安装了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;

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

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

这样一来效果就出来了! 


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
程序 最小化 任务 时候 隐藏
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组