• Delphi


    第三方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,添加如下菜单(可根据需要设定)。

    运行效果如下:

      作者:Jeremy.Wu
      出处:https://www.cnblogs.com/jeremywucnblog/
      本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。

  • 相关阅读:
    mongodb副本集群搭建
    redis 哨兵集群搭建
    mysql binlog备份
    MySQL 日志
    mysql 事务及innodb隔离级别
    sysbench使用
    PXC安装
    mysql搭建主从数据库
    GTID
    文件的压缩和解压
  • 原文地址:https://www.cnblogs.com/jeremywucnblog/p/11451325.html
Copyright © 2020-2023  润新知