Delphi XE10.4 TrayIcon托盘

最新推荐文章于 2021-11-11 17:25:15 发布

lyhoo163

最新推荐文章于 2021-11-11 17:25:15 发布

阅读量5.9k

点赞数

分类专栏：编程技巧常规控件文章标签： windows 其他个人开发

本文链接：https://blog.youkuaiyun.com/lyhoo163/article/details/121062938

版权

编程技巧同时被 2 个专栏收录

134 篇文章

订阅专栏

常规控件

21 篇文章

订阅专栏

本文详细介绍了如何在Windows应用中实现TrayIcon控件的使用，包括加入ICO文件、设置动画和提示信息，以及创建PopupMenu以控制主程序的显示与隐藏。通过定时器技术，程序在运行120秒后会转入托盘模式。

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

一、加入TrayIcon
1、主窗体中放置 TrayIcon 控件（ Additional 面板）；
2、TrayIcon加入ICO文件；
3、设置TrayIcon.Visible 为 True 。
二、主窗体MainFrm处理
1、OnCreate 事件：

TrayIcon1.Animate:=true;
TrayIcon1.BalloonFlags := bfNone;   // bfNone,bfInfo, bfWarning, bfError（默认，信息，警告，错误）
TrayIcon1.Hint:=self.Caption;
TrayIcon1.BalloonTitle:='提示';
TrayIcon1.BalloonHint:='2分钟进入托盘';
TrayIcon1.BalloonTimeout:=1000;
TrayIcon1.ShowBalloonHint;

上述代码，通过代码初始化参数。参数也可在编辑状态下控件进行参数设置。

2、OnShow 事件：

TrayIcon1.Icon := Application.Icon;  // 托盘使用主程序ICon
TrayIcon1.SetDefaultIcon;            // 托盘使用默认ICon

上述代码二选一。

三、TrayIcon加一个PopupMenu
加入二个菜单项目，二个事件：
1、启动Tray隐藏主程序

Hide();                                        // 隐藏主窗体
Self.WindowState := TWindowState.wsMinimized;  // 窗中最小化 任务栏上不显示

2、显示主程序

Self.Show();
Self.WindowState := TWindowState.wsNormal;
Application.BringToFront();         // 窗口靠前

四、加一个Timer
1、主窗口加一个全局变量，记录开机秒数。

var Miao:integer;

2、OnShow 事件：

  Miao:=0;

3、OnTimer事件

Miao:=Miao+1;
if miao>=120 then
begin
  Hide();                                        // 隐藏主窗体
  Self.WindowState := TWindowState.wsMinimized;  // 窗中最小化 任务栏上不显示
  Timer1.Enabled:=False;                         // 关闭Timer1
end;

这样，程序启动120秒，进入托盘状态。