Animate application icon (on taskbar and apllication window)
Place two or more Image components on application main form. If you want to make more complex animation with plenty of icons, it’s better to use ImageList component. Then load images into Image components (or ImageList).
The second component is Timer. Put it on your form, set appropriate interval (to make animation smooth) and activate it. In OnTimer event, you need to change application icon to next one from your ImageList (or icon from next Image component). Variable Icon is needed to store actual icon. Make it global and initialize it in OnCreate event of main form. Code below shows an easiest example with just two icons.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 |
<span style="font-weight: bold;">unit</span> Unit1; <span style="font-weight: bold;">interface</span> <span style="font-weight: bold;">uses</span> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; <span style="font-weight: bold;">type</span> TForm1 = <span style="font-weight: bold;">class</span>(TForm) Image1: TImage; Image2: TImage; Timer1: TTimer; <span style="font-weight: bold;">procedure</span> Timer1Timer(Sender: <span style="font-weight: bold;">TObject</span>); <span style="font-weight: bold;">procedure</span> FormCreate(Sender: <span style="font-weight: bold;">TObject</span>); <span style="font-weight: bold;">private</span> <span style="font-style: italic;">{ Private declarations }</span> <span style="font-weight: bold;">public</span> <span style="font-style: italic;">{ Public declarations }</span> <span style="font-weight: bold;">end</span>; <span style="font-weight: bold;">var</span> Form1: TForm1; Icon1:<span style="font-weight: bold;">Boolean</span>; <span style="font-weight: bold;">implementation</span> <span style="font-style: italic;">{$R *.dfm}</span> <span style="font-weight: bold;">procedure</span> TForm1.Timer1Timer(Sender: <span style="font-weight: bold;">TObject</span>); <span style="font-weight: bold;">begin</span> <span style="font-weight: bold;">if</span> Icon1=<span style="font-weight: bold;">false</span> <span style="font-weight: bold;">then</span> <span style="font-weight: bold;">begin</span> Application.icon:=Image1.Picture.Icon; Icon1:=<span style="font-weight: bold;">true</span>; <span style="font-weight: bold;">end</span> <span style="font-weight: bold;">else</span> <span style="font-weight: bold;">begin</span> Application.icon:=Image2.Picture.Icon; Icon1:=<span style="font-weight: bold;">false</span>; <span style="font-weight: bold;">end</span>; <span style="font-weight: bold;">end</span>; <span style="font-weight: bold;">procedure</span> TForm1.FormCreate(Sender: <span style="font-weight: bold;">TObject</span>); <span style="font-weight: bold;">begin</span> Icon1:=<span style="font-weight: bold;">true</span>; <span style="font-weight: bold;">end</span>; <span style="font-weight: bold;">end</span>. |