[Obelix]

Подскажите, каким образом можно реализовать анимацию иконки приложения в трее, без использования сторонних дополнительных компонентов?

Для отображения иконки буду использовать следующую структкру кода:

Код:

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 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88

unit Unit1;   interface   uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellApi; //!!   const WM_NOTIFYTRAYICON = WM_USER + 1;   type TForm1 = class(TForm) procedure FormDestroy(Sender: TObject);   procedure FormCreate(Sender: TObject); private { Private declarations }   procedure WMTRAYICONNOTIFY(var Msg: TMessage); message WM_NOTIFYTRAYICON;   public { Public declarations } end;   var Form1: TForm1; tray: TNotifyIconData; TrayIcon: TIcon;   implementation   {$R *.dfm}   procedure TForm1.WMTRAYICONNOTIFY(var Msg: TMessage); begin {обрабатываем события на иконке в трее} case Msg.LParam of WM_LBUTTONDOWN: Form1.Visible:=true; WM_LBUTTONDBLCLK: {ваш код обработки события двойного нажатия на левую кнопку мыши} WM_LBUTTONUP: {ваш код обработки события отпускания левой кнопки мыши}   WM_RBUTTONDOWN: {ваш код} WM_RBUTTONDBLCLK: {ваш код} WM_RBUTTONUP: {ваш код}   WM_MOUSEMOVE: {ваш код} end; end;   procedure TForm1.FormDestroy(Sender: TObject); begin try with tray do begin cbSize := SizeOf(TNotifyIconData); Wnd := Form1.Handle; uID := 1; end; Shell_NotifyIcon(NIM_DELETE, Addr(tray)); finally Application.Terminate; end; end;   procedure TForm1.FormCreate(Sender: TObject); begin TrayIcon := Application.Icon; with tray do begin cbSize := SizeOf(TNotifyIconData); Wnd := Form1.Handle; uID := 1; uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; uCallBackMessage := WM_NOTIFYTRAYICON; hIcon := TrayIcon.Handle; szTip := ("Это мое приложение в трее"); end; Shell_NotifyIcon(NIM_ADD, Addr(tray)); end;   procedure TForm1.GoToTrayButtonClick(Sender: TObject); begin //сворачиваемся в Трей Form1.Visible:=false; end;     end.

[lmikle]

Ну так разберись что делает этот код. На самом деле (сам в свое время писал руками) он помещает в трей иконку с двойным ключем - Hadle приложения и некоторый индекс. Если в трей поместить другую иконку с тем же ключем, то система просто заменит старую иконку на новую. Теперь осталось сделать список иконок и по таймеру их менять.