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

Question

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

我使用Shell_NotifyIcon，但不知道如何为通知区域中的托盘图标设置动画。用于为此设置动画间隔的计时器(TTimer) 应该可以随时停止和启动。

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

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

我怎样才能做到这一点？

提前致谢。

Answer 1

其实我不是很明白你的问题，但是如果你指的是在恢复程序的时候激活TTimer，在你最小化的时候禁用它

您可以使用“ApplicationEvents”：

1. 最小化：

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

2. 恢复：

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

祝你好运。