设为首页 加入收藏

TOP

Delphi - 利用TRzTrayIcon实现WinFrm工程最小会到托盘
2019-09-04 00:59:53 】 浏览:33
Tags:Delphi 利用 TRzTrayIcon 实现 WinFrm 工程 最小 托盘

第三方RC控件的安装

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

 

 

Delphi WinFrm工程最小化到托盘

Delphi新建WinFrm工程,在主窗体上添加TRzTrayIcon、TImageList和TPopupMenu。此时运行工程,点击最小化即可实现到托盘的效果。

 

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

选中RzTrayIcon,单击F11,选择Events,双击OnMinimizeApp,写如下代码:

procedure TForm1.RzTrayIcon1MinimizeApp(Sender: TObject);
begin
    RzTrayIcon1.ShowBalloonHint(Application.Title, '您可以在此处找到我呦!', bhiInfo);
end;

运行效果:

 

 

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

选中RzTrayIcon,单击F11,选择Properties,在Hint中写“系统Hint测试”,并绑定ImageList1、PopupMenu1。

双击TImageList,添加Icon图标。

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

运行效果如下:

 


Delphi - 利用TRzTrayIcon实现WinFrm工程最小会到托盘 https://www.cppentry.com/bencandy.php?fid=86&id=250025

】【打印繁体】【投稿】【收藏】 【推荐】【举报】【评论】 【关闭】 【返回顶部
上一篇Delphi - 互斥对象下实现系统的单.. 下一篇Delphi - Indy TIdMessage和TIdSM..