BCB如何将应用程序图标写到系统托盘中

最新推荐文章于 2022-10-04 22:04:58 发布

转载最新推荐文章于 2022-10-04 22:04:58 发布 · 2k 阅读

文章标签：

#components #user #shell #delete #n2 #class

BCB 专栏收录该内容

0 篇文章

订阅专栏

本文详细介绍如何在BCB环境下创建系统托盘图标，并实现通过托盘图标控制窗体显示及程序退出的功能。具体步骤包括新建工程、设置窗体属性、编写事件处理代码等。

1、新建一个工程，将工程存到目录D:/BCBTray下，并在这个目录下拷入一个icon图标文件，文件名为Icon1.ico，作为本程序的系统托盘处的图标。
2、在这个工程中再增加一个窗体Form2，要注意的是这个工程中，Form1是启动窗体，它负责系统托盘图标的总控工作，并不负有其它责任。应用程序的主窗口是由Form2 来负责的。在Form1的代码窗Unit1.cpp增加如下代码：
#include "Unit2.h"
3、将Form1的BorderStyle属性设置为bsNone
4、在Form1的OnShow事件写如下代码：
void __fastcall TForm1::FormShow(TObject *Sender)
{
Form1->Width=0;
}
5、在Form1中增加一个PopupMenu1，并为它增加一个子菜单：它的两个菜单条为：显示网址管理专家、退出程序。
为“显示网址管理专家”写如下单击事件：
void __fastcall TForm1::N1Click(TObject *Sender)
{
Form2->Show();
}
为“退出程序”写如下单击事件：
void __fastcall TForm1::N2Click(TObject *Sender)
{
Form1->Close();
}
6、在Form1的代码头文件Unit1.h中的TForm1的类定义的public成员函数中写下如下代码：
__fastcall ~TForm1();
        TIcon *MyIcon;
        void virtual __fastcall IconClick(TMessage& Msg);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_USER+100,TMessage,IconClick)
END_MESSAGE_MAP(TForm)
这样，TForm1的类定义全貌为：
class TForm1 : public TForm
{
__published: // IDE-managed Components
        TPopupMenu *PopupMenu1;
        TMenuItem *N1;
        TMenuItem *N2;
        void __fastcall N1Click(TObject *Sender);
        void __fastcall N2Click(TObject *Sender);
        void __fastcall FormShow(TObject *Sender);
private: // User declarations
public:  // User declarations
        __fastcall TForm1(TComponent* Owner);

        __fastcall ~TForm1();
        TIcon *MyIcon;
        void virtual __fastcall IconClick(TMessage& Msg);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_USER+100,TMessage,IconClick)
END_MESSAGE_MAP(TForm)
};
7、在Unit1.cpp中的窗体的构造函数中写如下代码：
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
MyIcon=new TIcon();
TNotifyIconData IconData;
MyIcon->LoadFromFile("Icon1.ico");
IconData.cbSize=sizeof(IconData);
IconData.hWnd=Handle;
IconData.uID=100;
IconData.hIcon=MyIcon->Handle;
IconData.uFlags=NIF_ICON | NIF_MESSAGE | NIF_TIP;
IconData.uCallbackMessage=WM_USER+100;
strcpy(IconData.szTip,"网址管理专家单击左键显示窗体");
Shell_NotifyIcon(NIM_ADD,&IconData);
SetWindowLong(Application->Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
}
8、在Unit1.cpp中的窗体的析构函数中写如下代码：
__fastcall TForm1::~TForm1()
{
TNotifyIconData IconData;
IconData.cbSize=sizeof(IconData);
IconData.hWnd=Handle;
IconData.uID=100;
Shell_NotifyIcon(NIM_DELETE,&IconData);
delete MyIcon;
}
9、在Unit1.cpp中写窗体的公用成员函数IconClick代码：
void __fastcall TForm1::IconClick(TMessage& Msg)
{
TPoint po;
if(Msg.LParam==WM_LBUTTONDOWN)
{
    Form2->Show();
}
if(Msg.LParam==WM_RBUTTONUP)
{
    GetCursorPos(&po);
    PopupMenu1->Popup(po.x,po.y);
}
}
10、由于Shell_NotifyIcon函数定义在ShellAPI.hpp文件中所以请将下面一句写到Unit1.h中：
#include <shellapi.hpp>
11、现在运行程序，系统图标就写到托盘中去了。
正文