Delphi中如何让窗口最小化至系统托盘

Question

如题所述

Answer 1

在 Delphi 语言中，实现让窗口最小化至系统托盘，最简单的办法是使用控件，在高版本的 Delphi 中提供了 TTrayIcon 控件，低版本可以下载安装 CnPack 小组提供的免费开源组件包中的 TCnTrayIcon 控件。

编写实现步骤如下：

1、在窗体中添加两个控件，CnTrayIcon 和 PopupMenu：

2、设置相关的属性

PopMenu 的设置如上图中示例，通常要有“显示主窗口”功能，其他的根据需要。

cnTrayIcon 的属性设置：

3、编写代码：

4、运行效果截图

当最小化程序窗口后，会在系统托盘区显示出图标。

当鼠标移动到程序图标上，显示提示信息（Hint）:

在托盘图标上点击右键，弹出菜单：