Мигание в Systme Tray

← →
AloneAli (2004-03-02 15:09) [0]

Как заставить мигать иконку программы в System Tray? Что-то вертиться в голове, а вспомнить не могу... Помогите!

← →
Kerk © (2004-03-02 15:11) [1]

А что тут вспоминать... ???
Меняй иконки через какой-то интервал времени и все...

Поствь таймер и используй Shell_NotifyIcon( NIM_MODIFY, @nid );

procedure TCtrlFrm.Timer111Timer(Sender: TObject);
var nid : TNotifyIconData;
begin
with nid do
begin
cbSize := SizeOf( TNotifyIconData );
Wnd := CtrlFrm.Handle;
uID := 1;
uFlags :=NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallbackMessage := WM_USER + 1010;
hIcon := CtrlFrm.Icon.Handle;
szTip := "TimeOrganizer v 2.4 beta";
end;
Shell_NotifyIcon( NIM_MODIFY, @nid );
end;

Мигание в Systme Tray Найти похожие ветки