在Delphi應用程序中使用Shell_NotifyIcon顯示動畫托盤圖標

Question

我想讓我的Delphi應用程序在通知區域顯示動畫托盤圖標。我也搜查了一下，但我只得到了TTrayIcon的結果，我不使用它。

我使用Shell_NotifyIcon並且無法弄清楚如何爲通知區域中的托盤圖標設置動畫。定時器(TTimer)用於設置Animate Interval for應該能夠隨時停止和啓動。

問題是我不知道如何啓動TTimer在完成Form的第一次恢復之後。

我的意思是用戶打開我的程序，並將其最小化到系統托盤，其系統托盤圖標的動畫效果很好，並且用戶由於某種原因再次將其恢復，並且他再次將其最小化到系統托盤，然後系統托盤圖標動畫和TTimer應該能夠重新開始，並且不應該顯示爲不具有動畫效果的正常系統托盤圖標。

我該如何做到這一點？

在此先感謝。

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; 
   

好運。