Delphi XE10.4 TrayIcon托盘

一、加入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
beginHide();                                        // 隐藏主窗体Self.WindowState := TWindowState.wsMinimized;  // 窗中最小化 任务栏上不显示Timer1.Enabled:=False;                         // 关闭Timer1
end;

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

Delphi XE10.4 TrayIcon托盘相关推荐

咏南中间件+开发框架支持最新的DELPHI XE10.1(BERLIN) UPDATE1
咏南中间件+开发框架支持最新的DELPHI XE10.1(BERLIN) UPDATE1 购买提供:中间件源码,价格十分优惠!有意者请向本人索取演示程序! 附带福利(赠送): CS开发框架源码 BS开 ...
Delphi XE10编写的《开放式公路收费系统》
Delphi XE10编写的<开放式公路收费系统> ---------------------------------------- 适用于一级公路.机场公路.开放式收费公路开发工具:D ...
Delphi XE10.1 引用计数
以往的Delphi版本,不支持接口的Weak,和UnSafe的引用,支持对象的Weak, UnSafe,而且仅在Android和Ios平台上支持. 现在Delphi XE10.1 Berlin终于增加 ...
人脸识别服务器端软件设计(delphi XE10)
开发语言:DELPHI XE10 数据库:MYSQL 硬件:海康监控头(带人脸抓拍) 人脸识别:百度人脸识别所用技术:httpserver(对外开发WEB接口).httpclient(连接百度进行人 ...
Delphi XE10.2移动开发学习电子书
Delphi XE10.2移动开发学习电子书PDF, 共214页, 值得你学习.话不多话,直载下载吧. 点击下面链接下载: https://download.csdn.net/download/zdh ...
Delphi XE10.3.1 使用心得-2019-12-08
Delphi XE10.3.1 使用心得写在前头工具安装创建项目类的创建和引用变量的声明和引用 1.类的成员 2.全局变量 3.局部变量函数的声明和实现 1.直接说说function,pr ...
2020-12-06 Delphi XE10.4安装记
本着要安就安装最新版的执着,开始了安装Delphi XE10.4之旅. 虽然Delphi 已经很没落了,破解版的资源还是有,只是少的比较可怜,最新的Delphi XE10.4更是少的可怜.忘了从那个 ...
Delphi XE10 给地图层上面添加Android原生控件
之前一直在研究如何在Delphi中使用ArcGIS for Android, 其实一直有个让人头痛的问题: 地图可以显示, 但是地图层处于Z轴的最顶层, 因此, 会遮挡掉Delphi界面中的控件... ...
delphi php 移动开发工具,盒子 - 完整版DELPHI XE10.1移动开发框架绝对可以使用...
[PAClient Error] Error: E2312 Unable to execute '"F:\Embarcadero\Studio\19.0\PlatformSDKs\andro ...

Delphi XE10.4 TrayIcon托盘

Delphi XE10.4 TrayIcon托盘相关推荐

最新文章

热门文章