如何用delphi建立一个动态的托盘图标

来源：百度知道 编辑：UC知道 时间：2024/05/30 09:13:40
我想用delphi建立一个动态的托盘图标，请问如何编写代码？
动态托盘是指，托盘图标呈现动画状态；

不知道你指的动态托盘图标是什么意思,不过我以前也做过类似的东西.可以参考参考:
//程序运行即显示托盘图标:
procedure TForm1.FormCreate(Sender: TObject);
begin
nodedate.cbSize := sizeof(tnotifyicondata);
nodedate.Wnd := handle;
nodedate.uID := 1;
nodedate.uFlags := Nif_Icon or Nif_Message or Nif_Tip;
nodedate.uCallbackMessage := wi_iconeven;
nodedate.hIcon := application.Icon.Handle;
nodedate.szTip := '托盘图标测试';
Shell_NotifyIcon(NIM_ADD,@nodedate);
n1.Checked := true;
end;
这是最基本的加载图片的设置.其它的还需要定义消息,图片的单击事件等.详细可以参看我的空间笔记:
http://hi.baidu.com/yueyun889/blog/item/a334286d849dedfb42169426.html