在Delphi应用程序中使用Shell_NotifyIcon显示动画托盘图标

Question

我希望我的Delphi应用程序在通知区域中显示动画托盘图标.我也搜索了这个,但我只得到了TTrayIcon我不使用的结果.

我使用Shell_NotifyIcon并无法弄清楚如何在通知区域中设置托盘图标的动画.(TTimer)用于为此设置Animate Interval 的Timer 应该能够随时停止和启动.

问题是我不知道如何TTimer在完成表单的第一次恢复后启动.

我的意思是用户打开我的程序,并将其最小化到系统托盘,它的系统托盘图标动画很好,用户再次出于某种原因恢复它,他再次将其最小化为系统托盘,然后系统托盘图标动画,TTimer应该能够重新开始,不应该像没有Animate的普通系统托盘图标那样显示.

我怎样才能做到这一点？

提前致谢.

Answer 1

事实上,我不太了解你的问题,但如果你指的是激活TTimer当你恢复程序并在最小化时禁用它

您可以使用"ApplicationEvents":

1. OnMinimize:

   procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
   begin
     Timer1.Enabled:=False;
   end;
   

2. OnRestore中:

   procedure TForm1.ApplicationEvents1Restore(Sender: TObject);
   begin
     Timer1.Enabled:=True;
   end;
   

祝好运.