有这样的控件，，，

托盘实现，你只要在定时器中改图，就可以实现让它动了，就象qq一样。
下面是托盘技术
一、  实现步骤    
1．  创建一个应用程序，在主窗体上增加一个TpopupMenu组件。并为该弹出菜单组件增加菜单项Exit，标题为“退出”。    
2．  在Uses中添加ShellAPI，因为在系统状态栏中增加图标时需调用ShellAPI函数Shell_NotifyIconA。该函数需要2个参数，其中一个是TnotifyIconDataA结构，需在主窗体中增加TnotifyIconDataA类型全局变量ntida。    
3．  定义消息mousemsg，并编写主窗体的mousemessage消息处理函数，此函数说明在图标上用鼠标左键单击时，会打开应用程序窗口；用鼠标右键单击时，会弹出一个菜单。    
下面给出步骤2和3的实现代码：    
unit  Unit1;    
interface    
uses    
Windows,  Messages,  SysUtils,  Classes,  Graphics,  Controls,  Forms,  Dialogs,    
StdCtrls,  ExtCtrls,  Menus,  shellapi;    
   
const    
mousemsg  =  wm_user  +  1;  //自定义消息，用于处理用户在图标上点击鼠标的事件    
iid  =  100;  //用户自定义数值，在TnotifyIconDataA类型全局变量ntida中使用。    
   
type    
TForm1  =  class(TForm)    
......    
private    
//自定义消息处理函数，处理鼠标点击图标事件    
procedure  mousemessage(var  message:  tmessage);  message  mousemsg;      
public    
{  Public  declarations  }    
end;    
   
var    
Form1:  TForm1;    
ntida:  TNotifyIcondataA;  //用于增加和删除系统状态图标    
implementation    
   
{$R  *.DFM}    
   
procedure  TForm1.mousemessage(var  message:  tmessage);    
var    
mousept:  TPoint;  //鼠标点击位置    
begin    
inherited;    
if  message.LParam  =  wm_rbuttonup  then  begin  //用鼠标右键点击图标    
getcursorpos(mousept);  //获取光标位置    
popupmenu1.popup(mousept.x,  mousept.y);  //在光标位置弹出菜单    
end;    
if  message.LParam  =  wm_lbuttonup  then  begin  //用鼠标左键点击图标    
//显示应用程序窗口    
ShowWindow(Handle,  SW_SHOW);    
//在任务栏上显示应用程序窗口    
ShowWindow(Application.handle,  SW_SHOW);    
SetWindowLong(Application.Handle,  GWL_EXSTYLE,    
not  (GetWindowLong(Application.handle,  GWL_EXSTYLE)    
or  WS_EX_TOOLWINDOW  AND  NOT  WS_EX_APPWINDOW));    
end;    
message.Result  :=  0;    
end    
4．  编辑TForm1.FormCreate(Sender:  TObject)    
应用程序开始运行时，在系统状态栏上生成图标显示，代码如下：    
procedure  TForm1.FormCreate(Sender:  TObject);    
begin    
ntida.cbSize  :=  sizeof(tnotifyicondataa);  //指定ntida的长度    
ntida.Wnd  :=  handle;  //取应用程序主窗体的句柄    
ntida.uID  :=  iid;  //用户自定义的一个数值，在uCallbackMessage参数指定的消息中使用    
ntida.uFlags  :=  nif_icon  +  nif_tip  +  nif_message;//指定在该结构中uCallbackMessage、hIcon、szTip参数都有效    
ntida.uCallbackMessage  :=  mousemsg;//指定的窗口消息    
ntida.hIcon  :=  Application.Icon.handle;//指定系统状态栏显示应用程序的图标句柄    
ntida.szTip  :=  'Icon';  //当鼠标停留在系统状态栏该图标上时，出现该提示信息    
shell_notifyicona(NIM_ADD,  @ntida);  //在系统状态栏增加一个新图标    
end;    
5．  编辑Tform1.OnClose    
当用户关闭应用程序窗口时，该窗口和任务栏上相应的应用程序窗口都消失，但程序并没有退出。代码如下：    
procedure  TForm1.FormClose(Sender:  TObject;  var  Action:  TCloseAction);    
begin    
Action  :=  caNone;  //不对窗体进行任何操作    
ShowWindow(Handle,  SW_HIDE);  //隐藏主窗体    
//隐藏应用程序窗口在任务栏上的显示    
ShowWindow(Application.Handle,  SW_HIDE);    
SetWindowLong(Application.Handle,  GWL_EXSTYLE,    
GetWindowLong(Application.handle,  GWL_EXSTYLE)    
or  WS_EX_TOOLWINDOW  AND  NOT  WS_EX_APPWINDOW);    
end;    
6．  编辑弹出菜单Exit    
当用户点击该菜单时完全退出应用程序。代码如下：    
procedure  TForm1.ExitClick(Sender:  TObject);    
begin    
//为ntida赋值，指定各项参数    
ntida.cbSize  :=  sizeof(tnotifyicondataa);    
ntida.wnd  :=  handle;    
ntida.uID  :=  iid;    
ntida.uFlags  :=  nif_icon  +  nif_tip  +  nif_message;    
ntida.uCallbackMessage  :=  mousemsg;    
ntida.hIcon  :=  Application.Icon.handle;    
ntida.szTip  :=  'Icon';    
shell_notifyicona(NIM_DELETE,  @ntida);  //删除已有的应用程序图标    
Application.Terminate;  //中断应用程序运行，退出应用程序    
end;    
 
---------------------------------------------------------------  
 
const  WM_MYTRAYICONCALLBACK  =  WM_USER  +  1000;  
 
type  
   TForm1  =  class(TForm)  
       ...  
       n_MainFromDispOrHide:  TMenuItem;  
   private  
       {  Private  declarations  }  
       MyTrayIcon  :  TNotifyIconData;      //定义一个托盘图标的类  
       procedure  TrayShow(Sender:  TObject);  
       procedure  WMMyTrayIconCallBack(var  Msg  :  TMessage);  //处理点击托盘图标的事件  
           message  WM_MYTRAYICONCALLBACK;  
       procedure  n_MainFromDispOrHideClick(Sender:  TObject);  
       procedure  FormCreate(Sender:  TObject);  
       procedure  FormClose(Sender:  TObject;  var  Action:  TCloseAction);  
   ...  
end;  
 
procedure  TForm1.TrayShow(Sender:  TObject);  
//当点击托盘图标时显示或隐含主窗体  
begin  
   TrayBarPopMenu.AutoPopup:=False;  
   //设定  TNotifyIconData  的记录长度  
   MyTrayIcon.cbSize  :=SizeOf(tnotifyicondata);  
   //确定调用程序的窗体句柄  
   MyTrayIcon.Wnd  :=Handle;  
   //确定图标的  uID  
   MyTrayIcon.uID  :=1;  
   //设定显示标记  
   MyTrayIcon.uFlags  :=NIF_ICON  or  NIF_TIP  or  NIF_MESSAGE;  
   //用户自定义消息  
   MyTrayIcon.uCallbackMessage  :=  WM_MYTRAYICONCALLBACK;  
   //托盘图标的句柄  
   MyTrayIcon.hIcon  :=  Application.Icon.Handle;  
   //托盘图标的提示信息  
   MyTrayIcon.szTip  :='定时导数据程序';  
   //向托盘中添加图标  
   Shell_NotifyIcon(NIM_ADD,@mytrayicon);  
end;  
 
procedure  TForm1.WMMyTrayIconCallBack(var  Msg:  TMessage);  
//处理点击托盘图标的事件，根据  WM_MOUSEMOVE  消息的不同情况产生不同的回应  
var  
   CursorPos  :  TPoint;  
begin  
   TrayBarPopMenu.AutoPopup:=False;  
   case  Msg.lParam  of  
       //左键按下  
       WM_LBUTTONDOWN  :  begin  
                                             application.MainForm.BringToFront;      //窗体置前  
                                         end;  
       //左键双击  
       WM_LBUTTONDBLCLK  :  begin                                                                //窗体隐含或显示  
                                                 Application.MainForm.Visible  :=  not  Application.MainForm.Visible;  
                                                 SetForegroundWindow(Application.Handle);  
                                             end;  
       //右键按下  
       WM_RBUTTONDOWN  :      begin                                                                //显示弹出菜单  
                                                 GetCursorPos(CursorPos);  
                                                 TrayBarPopMenu.Popup(CursorPos.x,CursorPos.y);  
                                             end;  
     end//case  
end;  
 
procedure  TForm1.n_MainFromDispOrHideClick(Sender:  TObject);  
begin  
   if  Application.MainForm.Visible  then  
   begin  
       if  FormStep1.Showing  Then  FormStep1.Hide;  
       if  FormStep2.Showing  Then  FormStep2.Hide;  
       Application.MainForm.Hide;  
       n_MainFromDispOrHide.Caption  :='显示主窗体';  
   end  
   else  
   begin  
       Application.MainForm.Show;  
       n_MainFromDispOrHide.Caption  :='隐藏主窗体';  
   end;  
end;  
 
procedure  TForm1.FormCreate(Sender:  TObject);  
begin  
   SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);//程序不在任务栏上显示  
   TrayShow(Application.MainForm);//显示图标  
end;  
 
procedure  TForm1.FormClose(Sender:  TObject;  var  Action:  TCloseAction);  
begin  
   Shell_NotifyIcon(NIM_DELETE,  @MyTrayIcon);//删除托盘图标  
end;    
 
---------------------------------------------------------------  
 
就是托盘技术，这种答案太多了，搜索一下可以找到非常多啊。

用rx的vcl吧，做的很经典
只是rx没有出delphi6版本的。
不过，我把这个控件单独提出来了，可在delphi6下用，要不要

我还将它改造的可以显示Balloon Tooltips，只要调用ShowBalloonTips方法就可以。要的话留下email.

你最好找一个有原码的控件，比如RX LIB里就有，这个控件很容易找到

有一个cooltrayicon的托盘控件
实现这个很简单

我是用cooltrayicon

trayicon控件可以实现一切你想要的。

up!关注！

to  netlib(河外孤星):
用你的方法点右键弹出菜单后,鼠标再点击空白地方菜单不会消失,一定要点了菜单才行.
让图标不停变动,这一句怎么改? ntida.hIcon:=Application.Icon.handle;  

to happyjoe(尘土飞扬):
发一个吧,
liupingzhong@163.com