如何动态改变托盘图标

[Zoogreen]

如题

[ting8325]

up一下

[「已注销」]

没看明白

[Zoogreen]

程序运行就在托盘上生成图标，然后比如，点击某个按钮就改变托盘图标

[Zoogreen]

没人回答　吗？

[「已注销」]

用CoolTrayIcon组件,它的Demos里面有很好的解决方案

[Zoogreen]

我用的是
d7

[pengxuan]

上盒子上搜搜TrayIcon组件,有很多效果可以选择

[Frank.WU]

CoolTrayIcon是目前最好的托盤控件，強烈推薦！D5/D6/D7/D9 適用。

[cxj1976]

//系统托盘
procedure Tfrm_Main.FSetNotifyData(AFlag, AIconIndex: integer);
var
m_nid : PNotifyIconData;
begin
m_nid := new(PNotifyIconData);
m_nid.cbSize := sizeof(PNotifyIconData);
m_nid.Wnd := Self.Handle;
m_nid.hIcon := FIcon[AIconIndex].Handle;
m_nid.uID := 0;
m_nid.szTip := '智信通餐饮';
m_nid.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
m_nid.uCallbackMessage := WM_BARICON;
case AFlag of
NotifyAdd : Shell_NotifyIcon(NIM_ADD,m_nid); //添加托盘
NotifyDelete : Shell_NotifyIcon(NIM_DELETE,m_nid); //删除托盘
NotifyReturn : Shell_NotifyIcon(NIM_MODIFY,m_nid); //改变托盘图标
end;
end;

FIcon : array[0..2] of TIcon; //三个图标
FIcon[0] := TIcon.Create;
FIcon[0] := Image1.Picture.Icon;
FIcon[1] := TIcon.Create;
FIcon[1] := Image2.Picture.Icon;
FIcon[2] := TIcon.Create;
FIcon[2] := Image3.Picture.Icon;

[lqdjdy]

CoolTrayIcon