delphi - 在 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;
   

祝你好运。