---- 有时候我们经常在程序中实现菜单项的重画，已有好多文章已经加以介绍，在此不再赘述。但是有时我们需要加新菜单项到系统菜单中，并希望给其增加相应的事件。笔者通过运用WindowAPI的AppendMenu函数和C++BUIDER的相关方法、属性，实现了往系统菜单中增加菜单项和事件。
---- 下面介绍具体的实现方法，读者按照以下步骤操作，就可以实现在系统菜单中增加菜单项和事件：
---- 1 首先创建一个新的空工程文件，存盘为project1.cpp和unit1.cpp。
---- 2 使用菜单Tools中的Image Editor，打开资源文件project1，新建一个位图并取名为HELP。
---- 3 在源文件头部定义如下常量作为菜单的标示：
#define IDM_HELP1 1
#define IDM_HELP2 2
#define IDM_REMOVE 3
#define IDM_SEPARATOR1 4
#define IDM_SEPARATOR2 5
---- 4 为Form1创建OnCreate事件，添加代码实现在系统菜单里增加菜单项：
首先定义菜单句柄和位图句柄：
HMENU hMenu;
HBITMAP hBitmapHelp;
然后获得系统菜单的句柄：
hMenu = GetSystemMenu (this->Handle, FALSE) ;
往系统菜单中增加自己的菜单项：
AppendMenu (hMenu, MF_SEPARATOR,IDM_SEPARATOR1, NULL) ;
AppendMenu (hMenu, MF_STRING,IDM_HELP1,"帮助") ;
AppendMenu (hMenu, MF_SEPARATOR,IDM_SEPARATOR2, NULL) ;
AppendMenu (hMenu, MF_STRING,IDM_REMOVE,"取消菜单") ;
往菜单中添加位图，首先装载位图资源，获得其句柄，然后将它添加到系统菜单中：
hBitmapHelp =LoadBitmap ((void*)HInstance, "HELP");
AppendMenu (hMenu, MF_BITMAP,IDM_HELP2, (char*)hBitmapHelp);
---- 5 在头文件的public下面添加方法MyWndProc的定义：
void __fastcall MyWndProc(Messages::TMessage &Message);
---- 6 在构造函数中加入WindowProc=MyWndProc代码，以重载WndProc方法，完成用户自己所要求的操作。
---- 7 在源文件里面添加MyWndProc的实现：
---- 首先获得系统菜单的句柄，为动态修改菜单项做预备。
HMENU hMenu;
hMenu = GetSystemMenu (this->Handle, FALSE);
---- 判定当前消息是否为系统命令消息，若是，则重新实现它，再判定消息的WparamLo参数是否为在OnCreate事件中添加的菜单项，若是，进行相应事件处理，如不是按系统默认执行；若是其他消息则执行系统默认的代码。
if (Message.Msg == WM_SYSCOMMAND)
{
switch(Message.WParamLo)
{
case IDM_HELP1:
ShowMessage("这是一个测试！");
break;
case IDM_HELP2:
ShowMessage("这是一个测试！");
break;
case IDM_REMOVE:
{
//删除添加到系统菜单的菜单项
DeleteMenu(hMenu,IDM_HELP1,MF_BYCOMMAND);
DeleteMenu(hMenu,IDM_HELP2,MF_BYCOMMAND);
DeleteMenu(hMenu,IDM_REMOVE,MF_BYCOMMAND);
DeleteMenu(hMenu,IDM_SEPARATOR1,MF_BYCOMMAND);
DeleteMenu(hMenu,IDM_SEPARATOR2,MF_BYCOMMAND);
}
default:
WndProc(Message);
}
}
else
WndProc(Message);
---- 接下来调试运行程序，本程序在C++builder 4.0下调试通过。
---- 下面介绍一下实现的技术内幕。往系统菜单中增加菜单项的要害就是获得系统菜单的句柄，在程序中使用Window API函数GetSysMenu，然后用AppendMenu增加菜单。函数的相关用法可查阅C++Builder联机帮助。给菜单项添加相应的事件，我们用到了TForm类的WindowProc属性，把用户自定义的方法代替系统自己的 WndProc方法。WindowProc属性指向一个被送往窗体的消息的处理过程，是我们能够在程序中重载WndProc方法。WndProc方法是窗体中第一个接收到消息的方法，调用父类的方法可完成窗体的激活、定位等与Windows同步的消息处理。重载该方法可改变窗体如何相应Windows的消息。本文程序就是运用两者的配合实现了给系统菜单添加相应事件的。
---- 附程序清单：
1 unit1.h
/---------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//--------------------------------------------------------
#include < Classes.hpp >
#include < Controls.hpp >
#include < StdCtrls.hpp >
#include < Forms.hpp >
#include < Db.hpp >
#include < DBGrids.hpp >
#include < DBTables.hpp >
#include < Grids.hpp >
//----------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
void __fastcall FormCreate(TObject *Sender);
// User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
void __fastcall MyWndProc(Messages::TMessage &Message);
protected:
};
//--------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------
#endif
2 unit1.cpp
//---------------------------------------------------------------
#include < vcl.h >
#pragma hdrstop
#include "Unit1.h"
//-----------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#define IDM_HELP1 1
#define IDM_HELP2 2
#define IDM_REMOVE 3
#define IDM_SEPARATOR1 4
#define IDM_SEPARATOR2 5
TForm1 *Form1;
//---------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
WindowProc=MyWndProc;
}
//--------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
HMENU hMenu;
HBITMAP hBitmapHelp;
hMenu = GetSystemMenu (this->Handle, FALSE) ;
AppendMenu (hMenu, MF_SEPARATOR,IDM_SEPARATOR1, NULL) ;
AppendMenu (hMenu, MF_STRING,IDM_HELP1,"帮助") ;
hBitmapHelp =LoadBitmap ((void*)HInstance, "HELP");
AppendMenu (hMenu, MF_BITMAP,IDM_HELP2, (char*)hBitmapHelp);
AppendMenu (hMenu, MF_SEPARATOR,IDM_SEPARATOR2, NULL) ;
AppendMenu (hMenu, MF_STRING,IDM_REMOVE,"取消菜单") ;
}
//---------------------------------------------------------
void __fastcall TForm1::MyWndProc
(Messages::TMessage &Message)
{
HMENU hMenu;
hMenu = GetSystemMenu (this->Handle, FALSE);
if (Message.Msg == WM_SYSCOMMAND)
{
switch(Message.WParamLo)
{
case IDM_HELP1:
ShowMessage("这是一个测试！");
break;
case IDM_HELP2:
ShowMessage("这是一个测试！");
break;
case IDM_REMOVE:
{
DeleteMenu(hMenu,IDM_HELP1,MF_BYCOMMAND);
DeleteMenu(hMenu,IDM_HELP2,MF_BYCOMMAND);
DeleteMenu(hMenu,IDM_REMOVE,MF_BYCOMMAND);
DeleteMenu(hMenu,IDM_SEPARATOR1,MF_BYCOMMAND);
DeleteMenu(hMenu,IDM_SEPARATOR2,MF_BYCOMMAND);
}
default:
WndProc(Message);
}
}
else
WndProc(Message);
}
|
