DelphiアプリケーションでShell_NotifyIconを使用してアニメーショントレイアイコンを表示

Question

Delphiアプリケーションで通知領域にアニメーショントレイアイコンを表示するようにします。私もそれについて調べましたが、私は使用しないTTrayIconの結果しか得ていません。

私はShell_NotifyIconを使用しており、通知領域にトレイアイコンをアニメーション表示する方法を理解できません。このためにAnimate Intervalを設定するために使用されるTimer (TTimer)は、いつでも停止して開始できる必要があります。

問題は、フォームの最初の復元後にTTimerを起動する方法がわかりません。

システムトレーを最小限に抑えて、システムトレイアイコンをアニメーション表示して何らかの理由でユーザーが復元した後、システムトレイに再び最小化してからシステムトレイアイコンアニメーションと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; 
   

幸運。