随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

提示:

1、菜单项的标识存放在 WM_MENUSELECT 消息的 lParam 参数中的低两位.

2、WM_MENUSELECT 也包括系统菜单发送的消息.

3、因为顶层菜单(File Edit Help)一般在资源文件中设同样的标识符(譬如: 65535), 所以系统会把它们的位置(或者叫顺序)当作标识; 因此执行 GetMenuString 时, 需要使用用非默认(非0)的 MF_BYPOSITION 参数.

4、因为系统菜单的标识都大于 $F000, 所以要求我们自定义的菜单标识一般要小于这个数; 在程序中我们也是根据这个道理来区别菜单来源的.

本例效果图:



本例使用的资源文件(TestRes.rc):
#define IDM_New   101
#define IDM_Open  102
#define IDM_Save  103
#define IDM_Exit  104
#define IDM_Cut   201
#define IDM_Copy  202
#define IDM_Paste 203
#define IDM_About 301

MyMenu1 MENUEX DISCARDABLE
BEGIN
  POPUP "&File"        ,65535
  BEGIN
    MENUITEM "&New"    ,IDM_New
    MENUITEM "&Open"   ,IDM_Open
    MENUITEM "&Save"   ,IDM_Save
    MENUITEM SEPARATOR
    MENUITEM "E&xit"   ,IDM_Exit
  END
  POPUP "&Edit"        ,65535
  BEGIN
    MENUITEM "Cu&t"    ,IDM_Cut
    MENUITEM "&Copy"   ,IDM_Copy
    MENUITEM "&Paste"  ,IDM_Paste
  END
  POPUP "&Help"        ,65535
  BEGIN
    MENUITEM "&About"  ,IDM_About
  END
END

本例代码文件:
program Project1;

{$R 'TestRes.res' 'TestRes.rc'}

uses
  Windows, Messages;

{收到 WM_MENUSELECT 消息时需要做的工作}
procedure OnMenuSelect(h: HWND; wParam: Integer);
var
  buf: array[0..255] of Char;
  s: string;
  w: Word;
begin
  w := LoWord(wParam);
  Str(w, s);
  case w of
    0..99        : GetMenuString(GetMenu(h), w, buf, Length(buf), MF_BYPOSITION);
    100..$F000   : GetMenuString(GetMenu(h), w, buf, Length(buf), MF_BYCOMMAND);
    $F001..$FFFF : GetMenuString(GetSystemMenu(h, False), w, buf, Length(buf), MF_BYCOMMAND);
  end;
  s := s + ' - ' + buf;
  SetWindowText(h, PChar(s));
end;

function WndProc(wnd: HWND; msg: UINT; wParam,lParam: Integer): Integer; stdcall;
begin
  Result := 0;
  case msg of
    WM_MENUSELECT : OnMenuSelect(wnd, wParam); {收到 WM_MENUSELECT 消息后调用 OnMenuSelect 过程}
    WM_DESTROY    : PostQuitMessage(0);
  else
    Result := DefWindowProc(wnd, msg, wParam, lParam);
  end;
end;

function RegMyWndClass: Boolean;
var
  cls: TWndClass;
begin
  cls.style         := CS_HREDRAW or CS_VREDRAW;
  cls.lpfnWndProc   := @WndProc;
  cls.cbClsExtra    := 0;
  cls.cbWndExtra    := 0;
  cls.hInstance     := HInstance;
  cls.hIcon         := 0;
  cls.hCursor       := LoadCursor(0, IDC_ARROW);
  cls.hbrBackground := HBRUSH(COLOR_WINDOW + 1);
  cls.lpszMenuName  := 'MyMenu1';
  cls.lpszClassName := 'MyWnd';
  Result := RegisterClass(cls) <> 0;
end;

{程序入口}
const
  tit = 'New Form';
  ws = WS_OVERLAPPEDWINDOW;
  x = 100; y = 100; w = 300; h = 180;
var
  hWnd: THandle;
  Msg : TMsg;
begin
  RegMyWndClass;
  hWnd := CreateWindow('MyWnd', tit, ws, x, y, w, h, 0, 0, HInstance, nil);
  ShowWindow(hWnd, SW_SHOWNORMAL);
  UpdateWindow(hWnd);

  while(GetMessage(Msg, 0, 0, 0)) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end.

posted on 2008-04-23 17:58  万一  阅读(...)  评论(...编辑  收藏