coolTrayIcon组件怎么使用

Question

刚下载了个coolTrayIcon组件,已经安装成功,就是不知道怎么使用就想实现关闭窗口后到右下脚托盘显示,然后双击托盘再还原窗口,不知道怎么实现? 谢谢

Answer 1

刚试了下还行最小化托盘
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CoolTrayIcon1.IconVisible := true;//显示托盘图标
  CoolTrayIcon1.HideMainForm; //隐藏主窗体!
  canclose:=false;
end;双击托盘显示
procedure TForm1.CoolTrayIcon1DblClick(Sender: TObject);
begin
  CoolTrayIcon1.IconVisible := false;//隐藏托盘图标
  CoolTrayIcon1.ShowMainForm; //显示主窗体!
end;

Answer 2

coolTrayIcon的优点在支持动画显示。

Answer 3

CoolTrayIcon1.ShowMainForm会触发窗体的OnShow事件，需要注意这个。
还有在关闭程序时CoolTrayIcon释放时非常慢(会卡一下)，我一直没找到原因。但是不影响使用！

Answer 4

把最小化到托盘的事件后加一行abort;
然后一起加到Form的Onclose事件里

Answer 5

demo
http://blog.csdn.net/xuexue_114/article/details/5183253

Answer 6

ShellExecute(handle, nil, pchar('WinRAR.exe '+edit1.text edit3.text),'','',SW_show);将edit1.text文件夹 压缩到edit3.text文件夹,怎么出错

Answer 7

ShellExecute(handle, nil, pchar('WinRAR.exe '+edit1.text + ' ' + edit3.text),'','',SW_show);

Answer 8

把最小化到托盘的事件后加一行abort;
然后一起加到Form的Onclose事件里