如何在系统托盘上动态图标的实现

最新推荐文章于 2024-10-15 11:15:51 发布

原创最新推荐文章于 2024-10-15 11:15:51 发布 · 991 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#imagelist #delphi #shell #timer #数据结构 #聊天

本文介绍了如何在系统托盘区域创建动态图标，通过使用NOTIFYICONDATA结构和Shell_NotifyIcon函数，以及在Delphi中处理WM_SHELLNOTIFY消息来响应图标事件。同时，文章还展示了如何实现类似Windows开始菜单中菜单左侧的图片效果，通过窗体模拟菜单，利用TrayIcon控件和ImageList实现动态图标切换。

一个数据结构NOTIFYICONDATA
一个调用函数Shell_NotifyIcon


NotifyIconData.cbSize   =   sizeof(NOTIFYICONDATA);
NotifyIconData.hIcon   =   要使用的图标句柄
NotifyIconData.hWnd   =   父窗口句柄;
NotifyIconData.szTip,指向要提示的信息
                                      可以这样
                                      strcpy(NotifyIconData.szTip,"提示信息");
NotifyIconData.uCallbackMessage   =   WM_SHELLNOTIFY;回调的的消息
NotifyIconData.uFlags   =   NIF_ICON   |   NIF_MESSAGE   |   NIF_TIP;
NotifyIconData.uID   =   1;
                                      NIM_ADD-增加,NIM_DEL删除托盘小图标
Shell_NotifyIcon(NIM_ADD,&NotifyIconData);
Top

2 楼
BEGIN_MESSAGE_MAP(CMainFrame,   CFrameWnd)
//{{AFX_MSG_MAP(CMainFrame)
ON_WM_CREATE()
ON_WM_DESTROY()
//}}AFX_MSG_MAP
ON_MESSAGE(WM_SHELLNOTIFY,OnShellNotify)//加入这行代码
END_MESSAGE_MAP()

在.h   加入函数的声明
protected:
//{{AFX_MSG(CMainFrame)
afx_msg   int   OnCreate(LPCREATESTRUCT   lpCreateStruct);
afx_msg   void   OnDestroy();
//}}AFX_MSG
LRESULT     OnShellNotify(WPARAM   wParam,LPARAM   lParam);//加入这行代码
DECLARE_MESSAGE_MAP()

在.cpp   中加入函数体

LRESULT   CMainFrame::OnShellNotify(WPARAM   wParam,LPARAM   lParam)   //图标响应事件
{

      if   (lParam   ==   WM_RBUTTONDOWN)
      {
          switch(wParam)
        {
                  case   IDR_MAINFRAME:
                ...
        }
      }
}
其中wParam   是图标的ID号
lParam是事件

如何在托盘图标实现漂亮的菜单

今日看到一个帖子问：如何在托盘图标实现象window开始菜单中菜单左侧的图片效果。于是自己动手做了一个。
我的思路是不用菜单，用窗体来实现（我想不仅是delphi其他编程语言应该一样可以）。
例子中我用到了一个第三方控件：Trayicon用来显示动态托盘图标（下载地址：http://2ccc.com/article.asp?articleid=1985）。请看我如下步骤：
1.新建立一个project,同时建立两个窗体Form1和iconform。其中第二个用来显示托盘图标菜单。
2.各放置一个Trayicon、imagelist和Applicationevents控件于Form1上。
3.加入合适的图标到imagelist，然后在trayicon的属性编辑器中的icon项关联imagelist。（如果你加入了多个图标，你可以把trayicon的animate设置为true，可以看见动态图标，trayicon控件包里有DEMO）
4.将trayicon的popupmenuon属性设置为imnone；visible设置为true。
5.在trayicon的mouseup事件中写：
var
APoint: TPoint;
begin
GetCursorPos(APoint);
if (Screen.ActiveForm <> nil) and (Screen.ActiveForm.Handle <> 0) then
SetForegroundWindow(Screen.ActiveForm.Handle);

if iconform.Width + apoint.X <= screen.Width then
iconform.left:=APoint.X
else
iconform.Left:=APoint.X - FORM2.Width;

iconform.Top:=apoint.Y - FORM2.Height;
iconform.Show;
end;
6.在applicationevents的deactivate事件中写：
iconform.Close;
7.在iconform上放置两个标签label_restore,label_exit
8.在iconform的deactivate事件中写： close;
9.在label_restore的click事件中写： form1.trayicon1.Restore;
在label_exit的click事件中写： Application.Terminate;
10.至此，编程工作已经完成，运行后点击托盘图标看看效果如何。你可以在iconform上作你想作的事情，不用说图片，在form上你可以作的事情就太多了。

如何在系统托盘上动态图标的实现

hc360慧聪网教育行业频道 2004-08-12 09:54:56

近日编写一个局域网聊天软件，最初的愿望是程序启动后，直接最小化为图标，存放于系统托盘上。程序做出来后来觉得静态图标不新鲜，能否搞一个动态图标呢？经过努力，在原来程序的基础上，添加了一些代码，终于实现，现奉献给大家。
首先，用Delphi自带的工具软件Image Editor（在Tools目录中）打开本项目的资源文件（本例是lt.res），增加图标，并编辑好它们的内容，分别命名为mainicon1，mainicon2，……然后在Delphi中关闭全部（close all），重新打开项目。该步骤的目的是读入改变过的资源文件。
其次，声明一整数型全局变量count_i，在窗体的OnCreate事件中加入count_i：=0;代码。在窗体中加入一定时器控件Timer1对象，其Enabled属性设为False，Interval属性值设置要大一点，否则图标变化速度太快，在其OnTimer事件中加入如下代码（my_tray_icon是事先声明的一个tnotifyicondata型私有变量）：
if count_i>2 then count_i:=0;
    count_i:=count_i+1;
    with my_tray_icon do
    begin
      cbsize:=sizeof(tnotifyicondata);
      wnd:=handle;
      uid:=1;
      uflags:=nif_message or nif_icon or nif_tip;
      ucallbackmessage:=wm_traynotify;
      case count_i of
         1: hicon:=loadicon(hinstance,<|>mainicon<|>);
         2:hicon:=loadicon(hinstance,<|>mainicon2<|>);
         3:hicon:=loadicon(hinstance,<|>mainicon1<|>);
      end;
      sztip:=<|>局域网聊天<|>;
    end;
shell_notifyicon(nim_modify,@my_tray_icon);
最后，在窗体的OnCreate事件中加入Timer1.Enabled:=true;代码。