最小化托盘
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;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024