【高悬赏】delphi如何实现动态托盘

来源：百度知道 编辑：UC知道 时间：2024/05/31 16:17:34
类似QQ系统消息的那种..几个ico图标快速切换的那种效果的托盘图标，不要求有右键菜单，有一个单击图标事件后，弹出form2，同时删除托盘图标...说详细点，简单而且能实现的，追加给分
有发可行的源程序到namezhou#gmail.com的，验证可行的话，追加100分

楼主，下载一个CoolTrayIcon_v440控件吧，里面有DEMO可以满足你的要求，我现在用的就是这个控件，应该能实现你这个功能，用IMAGELIST实现动画。

www.2ccc.com有下载

用trayicon控件 ,raize里就有

我有，但是不可以ICO图标快速切换。。。。。。。需要的话可以发消息

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, QMenus ,shellapi, Menus;

type
TForm1 = class(TForm)
Button1: TButton;
PopupMenu1: TPopupMenu;
Button2: TButton;
procedure Button1Click(Sender: TObject);

procedure TaskIcon_add(TitleName: String;ToolPopupMenu_Left,ToolPopupMenu_Right: TPopupMenu);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
PNotify : PNotifyIconDataA; //义托盘图标结构
ShowTaskIcon:Boolean; //托盘图标结构
public
{ Public declarations }
Protected