Delphi7使用控件CoolTrayIcon时如何做到程序启动就最小化到托盘

最新推荐文章于 2025-06-12 11:26:55 发布

迷路的指南针

最新推荐文章于 2025-06-12 11:26:55 发布

阅读量4.8k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： Delphi CoolTrayIcon 程序启动时最小化至托盘

本文链接：https://blog.youkuaiyun.com/chenfuvk/article/details/17011083

本文介绍了在Delphi7中使用第三方控件CoolTrayIcon，让程序在启动时自动最小化到托盘的方法。通过分析CoolTrayIcon的函数和代码调试，找到了在窗体创建后调用HideMainForm()无效的原因，并提供了解决方案，包括在工程文件中添加特定代码以实现所需功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

学习Delphi时，使用了第3方控件CoolTrayIcon。CoolTrayIcon的功能很强大，能够将程序添加进托盘，省去了我们再编写代码来实现托盘。但是在看搜CoolTrayIcon的时候，发现好多朋友在求如何让程序在启动就最小化多托盘的方法。但是貌似都不曾成功过。笔者摸索了一下，成功实现了。

找原因

首先我们来看一下CoolTrayIcon的功能函数：根据CoolTrayIcon的使用实例来看，CoolTrayIcon提供了函数HideMainForm()。好吧我们如果在FromCreat里面如果调用该函数会发现没有任何反应。为什么呢？我们接着跟踪这个函数看一下它的声明：

procedure TCoolTrayIcon.HideMainForm;
begin
  if Owner is TWinControl then         // Owner might be of type TService
    if Application.MainForm <> nil then
    begin
      // Hide the form itself (and thus any child windows)
      Application.MainForm.Visible := False;
      { Hide application's TASKBAR icon (not the tray icon). Do this AFTER
        the main form is hidden, or any child windows will redisplay the
        taskbar icon if they are visible. }
      HideTaskbarIcon;
    end;
end;

好吧，我们看到这里应该知道了吧。如果你还不知道，可以对它设置断点调试，你就会发现函数声明的语句根本就没有进去。也就是说Application.MainForm根本没有创建。这就意味着你要在创建了窗体的情况下才能调用该函