欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

Delphi - 利用TRzTrayIcon实现WinFrm工程最小会到托盘

程序员文章站 2022-03-03 08:17:23
第三方RC控件的安装 浏览器搜索Delphi Rz控件下载,找到下载一个安装文件,解压后点击RC3.exe一键安装。 Delphi WinFrm工程最小化到托盘 Delphi新建WinFrm工程,在主窗体上添加TRzTrayIcon、TImageList和TPopupMenu。此时运行工程,点击最小 ......

第三方rc控件的安装

浏览器搜索delphi rz控件下载,找到下载一个安装文件,解压后点击rc3.exe一键安装。

Delphi - 利用TRzTrayIcon实现WinFrm工程最小会到托盘

Delphi - 利用TRzTrayIcon实现WinFrm工程最小会到托盘

 

 

delphi winfrm工程最小化到托盘

delphi新建winfrm工程,在主窗体上添加trztrayicon、timagelist和tpopupmenu。此时运行工程,点击最小化即可实现到托盘的效果。

Delphi - 利用TRzTrayIcon实现WinFrm工程最小会到托盘

 

系统最小化时实现提示信息

选中rztrayicon,单击f11,选择events,双击onminimizeapp,写如下代码:

procedure tform1.rztrayicon1minimizeapp(sender: tobject);
begin
    rztrayicon1.showballoonhint(application.title, '您可以在此处找到我呦!', bhiinfo);
end;

Delphi - 利用TRzTrayIcon实现WinFrm工程最小会到托盘

运行效果:

Delphi - 利用TRzTrayIcon实现WinFrm工程最小会到托盘 

 

添加最小化后图标的hint提示效果和右键菜单

选中rztrayicon,单击f11,选择properties,在hint中写“系统hint测试”,并绑定imagelist1、popupmenu1。

双击timagelist,添加icon图标。

双击popupmenu,添加如下菜单(可根据需要设定)。

Delphi - 利用TRzTrayIcon实现WinFrm工程最小会到托盘

Delphi - 利用TRzTrayIcon实现WinFrm工程最小会到托盘

Delphi - 利用TRzTrayIcon实现WinFrm工程最小会到托盘

运行效果如下:

Delphi - 利用TRzTrayIcon实现WinFrm工程最小会到托盘

Delphi - 利用TRzTrayIcon实现WinFrm工程最小会到托盘