Anzeigen eines animierten Tray-Symbols mit Shell_NotifyIcon in der Delphi-Anwendung

Question

Ich möchte, dass meine Delphi-Anwendung ein animiertes Tray-Symbol im Benachrichtigungsbereich anzeigt. Ich habe auch danach gesucht, aber ich habe nur Ergebnisse für TTrayIcon bekommen, die ich nicht verwende.

Ich benutze Shell_NotifyIcon und kann nicht herausfinden, wie man ein Tray-Icon im Infobereich animiert. Der Timer (TTimer), mit dem ein Animate-Intervall eingestellt wird, sollte jederzeit gestoppt und gestartet werden können.

Das Problem ist, ich weiß nicht, wie man die TTimer nach der ersten Wiederherstellung des Formulars gestartet wird.

Ich meine, ein Benutzer öffnete mein Programm und minimierte es in die Taskleiste, sein Taskleistensymbol wurde gut animiert, und der Benutzer stellte es aus irgendeinem Grund wieder her und minimierte es erneut auf System Tray und dann System Tray Icon Animation und TTimer sollten in der Lage sein, erneut zu starten und sollten nicht wie ein normales Taskleistensymbol angezeigt werden, das nicht animiert wird.

Wie kann ich das erreichen?

Vielen Dank im Voraus.

Answer 1

In der Tat, ich habe nicht sehr gut verstehen Ihre Frage, aber wenn Sie sich beziehen TTimer aktivieren Wenn Sie das Programm wiederherstellen und es deaktivieren, wenn Sie

Minimieren

Sie verwenden können „Application“:

1. OnMinimize:

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

2. OnRestore:

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

Viel Glück.