首页 > 其他分享 >(05)系统托盘TrayIcon1使用方法

(05)系统托盘TrayIcon1使用方法

时间:2024-01-02 11:05:02浏览次数:30  
标签:begin end Sender 05 系统托盘 TForm1 TObject TrayIcon1

TrayIcon1.Visible一定要设为True

01]绑定右键菜单02]汽泡显示信息
03]托盘闪烁
04]更改ico图标


01]绑定右键菜单

拖一个PopupMenu1,设置好菜单,绑定即可显示

(05)系统托盘TrayIcon1使用方法_ico

(05)系统托盘TrayIcon1使用方法_ico_02

(05)系统托盘TrayIcon1使用方法_ico_03


02]汽泡显示信息

(05)系统托盘TrayIcon1使用方法_ico_04

procedure TForm1.Button1Click(Sender: TObject);
begin
  TrayIcon1.BalloonFlags:=bfWarning; //bfNone, bfInfo, bfWarning, bfError
  TrayIcon1.BalloonHint:='TrayIcon1汽泡显示';
  TrayIcon1.BalloonTitle:='警告:';
  TrayIcon1.BalloonTimeout:=2000;  // 持续时间
  TrayIcon1.ShowBalloonHint;
end;

03]托盘闪烁

添加一个ImageList1,添加好图标后

(05)系统托盘TrayIcon1使用方法_右键菜单_05

 

procedure TForm1.FormCreate(Sender: TObject);
begin
  TrayIcon1.Icons := ImageList1;
  TrayIcon1.AnimateInterval := 100;  //闪烁间隔时间  毫秒
end; 

procedure TForm1.Button2Click(Sender: TObject);//开始托盘闪烁
begin
  TrayIcon1.Animate := True;
end;

procedure TForm1.Button3Click(Sender: TObject);//停止闪烁
begin
  TrayIcon1.Animate := False;
end;

04]更改ico图标   (06)将资源装进Res,就不用引用磁盘文件

procedure TForm1.Button5Click(Sender: TObject);
begin
  //TrayIcon1.Icon.LoadFromFile('33.ico');
  TrayIcon1.Icon.LoadFromResourceName(Hinstance,'33');

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  //TrayIcon1.Icon.LoadFromFile('13.ico');
 TrayIcon1.Icon.LoadFromResourceName(Hinstance,'13');
end;

标签:begin,end,Sender,05,系统托盘,TForm1,TObject,TrayIcon1
From: https://blog.51cto.com/u_15216366/9064778

相关文章

  • 【LeetCode】2055. 蜡烛之间的盘子
    一、题目描述给你一个长桌子,桌子上盘子和蜡烛排成一列。给你一个下标从0开始的字符串s,它只包含字符'*'和'|',其中'*'表示一个盘子,'|'表示一支蜡烛。同时给你一个下标从0开始的二维整数数组queries,其中queries[i]=[lefti,righti]表示子字符串s[lefti...rig......
  • kali官方博客 --- Kali Linux 2023.4 发布(云 ARM64、Vagrant Hyper-V 和 Raspberry Pi
     2023年即将结束,在假期开始之前,我们认为今天是发布Kali2023.4的好时机。虽然这次发布的最终用户功能可能不是最多的,但我们提供了许多新的平台,幕后也发生了许多变化,这些变化产生了积极的连锁反应,使每个人都受益匪浅。撇开新闻、平台和功能不谈,如果我们的软件包(包括新工具和......
  • 代码随想录算法训练营第十八天 | 513.找树左下角的值,112. 路径总和,113.路径总和ii,106.
    一、513.找树左下角的值题目链接:LeetCode513.找树左下角的值学习前:思路:层序遍历。采用递归和迭代两种方式递归:定义最大深度和目标值两个成员变量,方法参数是结点和当前结点的深度;返回类型为void;终止条件为结点为空;单次循环内容为判断该节点是否符合目标要求,且分别传入左子......
  • 05.黑盒测试方法论 - 判定表
    判定表法 因果图只是一种辅助工具,通过分析最终得到判定表,再通过判定表编写测试用例画因果图非常麻烦,影响测试效率,可以直接写判定表,进而编写测试用例判定表的组成 条件桩:问题的所有条件动作桩:问题的所有输出条件项:针对条件桩的取值动作项:条件项的各种取值情......
  • P5765 [CQOI2005] 珠宝 题解
    P5765[CQOI2005]珠宝题解思路好题,注意到有性质:颜色数最多为\(\lfloor\log_2n\rfloor+1\),有了这个性质之后直接树形DP糊上去就过了。简要的证明:考虑一个点,显然一种颜色即可。对于一个颜色为\(c\)的点,其儿子至少有\(c-1\)个,且为\(1\simc-1\)的排列,这样可......
  • 2023-2024-1 20231405《计算机基础与程序设计》第十四周学习总结
    2023-2024-120231405《计算机基础与程序设计》第十四周学习总结作业信息作业属于哪个课程https://edu.cnblogs.com/campus/besti/2023-2024-1-CFAP作业要求在哪里https://edu.cnblogs.com/campus/besti/2023-2024-1-CFAP/homework/13009作业的目标自......
  • 2023-2024-1 学号:20231305 《计算机基础与程序设计》第十四周学习总结
    2023-2024-1学号:20231305《计算机基础与程序设计》第十四周学习总结作业信息这个作业属于哪个课程<班级的链接>(如2022-2023-1-计算机基础与程序设计)这个作业要求在哪里<作业要求的链接>(如2022-2023-1计算机基础与程序设计第一周作业)这个作业的目标<自学教材......
  • 05 QT上位机读写FPGA内存
    软件版本:vitis2021.1(vivado2021.1)操作系统:WIN1064bit硬件平台:适用XILINXA7/K7/Z7/ZU/KU系列FPGA登录"米联客"FPGA社区-www.uisrc.com视频课程、答疑解惑!5.1概述如果读者对于前面demo还有一些疑惑,那么本节课的内容,可以让你更加简单地弄明白什么是BAR地址空间操作,什么是对......
  • 05.常用测试平台
    常用的测试平台 测试用例管理与Bug管理平台。代码管理平台。流程管理平台。测试用例管理平台 JIRA:推荐方案,定制性很强。RedMine:推荐方案,开源,活跃,定制性很强。TestLink:流行的测试用例管理平台,体验不太好。其他:Tapd、云效、禅道、GitLab、在线协作文档。......
  • 05 AXI4总线axi-full-master
    软件版本:vitis2021.1(vivado2021.1)操作系统:WIN1064bit硬件平台:适用XILINXA7/K7/Z7/ZU/KU系列FPGA登录"米联客"FPGA社区-www.uisrc.com视频课程、答疑解惑!1概述使用XILINX的软件工具VIVADO以及XILINX的7代以上的FPGA或者SOC掌握AXI-4总线结束,并且可以灵活使用AXI-4总线技......