Windows 编程[18] - 更换菜单项: ModifyMenu

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了Windows 编程[18] - 更换菜单项: ModifyMenu，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1723字，纯文字阅读大概需要3分钟。

内容图文

Windows 编程[18] - 更换菜单项: ModifyMenu

本例效果图:

---

本例使用的资源文件(TestRes.rc):

---

MyMenu1 MENUEX
BEGIN
  MENUITEM "Open"  ,101
  MENUITEM "Old"   ,102
  MENUITEM "Help"  ,103
END

本例代码文件:

---

program Project1;

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

uses
  Windows, Messages;

const IDM_New = 202; {常量将作为修改后的菜单的标识}

{收到 WM_COMMAND 消息时需要做的工作}
procedure OnCommand(h: HWND; wParam: Integer);
var
  w: Word;
begin
  w := LoWord(wParam);
  case w of
    102: begin  {102 是在资源文件中指定的菜单标识}
           ModifyMenu(GetMenu(h), w, 0, IDM_New, 'New!');
           DrawMenuBar(h);
         end;
    IDM_New: MessageBox(h, '我是新来的', '', 0);
  end;
end;

function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall;
begin
  Result := 0;
  case msg of
    WM_COMMAND : OnCommand(wnd, wParam); {收到 WM_COMMAND 消息后调用 OnCommand 过程}
    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-22 23:24? 万一? 阅读(2792)? 评论(2)? 编辑? 收藏

内容总结

以上是互联网集市为您收集整理的Windows 编程[18] - 更换菜单项: ModifyMenu全部内容，希望文章能够帮你解决Windows 编程[18] - 更换菜单项: ModifyMenu所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---