Delphi7 SystemTrayIcon 控件包 及Demo

delphi->Component->InstallPackages->add->SystemTrayIconV10.bpl 在控件选项卡的最后一页:Standard_II ^_^ 放到窗体上,设置属性: property Icon 指定显示图标,不设置默认适用工程图标 property HintContent 鼠标执行托盘时候的提示 property TipsContent: 气球内容 property TipsCaption: 气球标题 property RPopupMenu: 右键弹出菜单 property AutoRButtonPopMenu: 是否点右键弹出菜单 property OnLButtonClick: 点击左键事件,其实是LButtonUp property OnRButtonClick: 点击右键事件,其实是RButtonUp,AutoRButtonPopMenu=false 不弹出菜单 property OnBalloonShow: 气球显示时候 property OnBalloonHide: 当 Balloon 消失时执行（例如 SysTrayIcon 被删除），但指定的 TimeOut 时间到或鼠标点击 Balloon Tips 后的消失不发送此消息 property OnBalloonTimeOut: 当 Balloon 的 TimeOut 时间到时执行 XP有时候有点小问题,自己体验吧 property OnBalloonUserClick: 当鼠标点击 Balloon 时执行。 注意：在XP下Balloon 上有个关闭按钮，而且 Balloon 一直显示 如果鼠标点在按钮上将接收到 NIN_BALLOONTIMEOUT 消息。 procedure ShowTrayIcon; 添加图标 procedure ModifyTrayIcon; 更新图标 procedure DeleteTrayIcon; 删除图标 procedure ChangeTrayIcon(AIcon: TIcon); 更换ICON,更换图标,当然可以先修改ICON 再ModifyTrayIcon; procedure ShowBalloon(Caption:TCaption = '';Content:String=''); 显示球,可以指定参数,不指定适用:TipsCaption,TipsContent; procedure PopMenu;弹出菜单.如果你喜欢可以AutoRButtonPopMenu: false,在OnLButtonClick,或OnRButtonClick 时弹出 就这些了,欢迎交流,QQ群:69129029