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

Question

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

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

问题是我在第一次恢复表格后不知道如何启动TTimer。

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

我怎样才能做到这一点？

先谢谢。

Answer 1

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

您可以使用＆＃34; ApplicationEvents＆＃34; ：

1. OnMinimize：

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

2. OnRestore中：

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

祝你好运。