程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Windows 編程[17] - 更換菜單: LoadMenu、DestroyMenu、SetMenu

Windows 編程[17] - 更換菜單: LoadMenu、DestroyMenu、SetMenu

編輯:Delphi

本例效果圖:

Windows 編程[17] - 更換菜單: LoadMenu、DestroyMenu、SetMenu

  本例在資源文件中備有兩組菜單, 程序實現運行時切換.

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

MyMenu1 MENUEX
BEGIN
 MENUITEM "Open"  ,101
 MENUITEM "Edit"  ,102
 MENUITEM "Help"  ,103
 MENUITEM "Chinese" ,104 ,MFT_RIGHTJUSTIFY
END

MyMenu2 MENUEX
BEGIN
 MENUITEM "打開"  ,201
 MENUITEM "編輯"  ,202
 MENUITEM "幫助"  ,203
 MENUITEM "English" ,204 ,MFT_RIGHTJUSTIFY
END

  本例代碼文件:

program Project1;

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

uses
 Windows, Messages;

{收到 WM_COMMAND 消息時需要做的工作}
procedure OnCommand(h: HWND; wParam: Integer);
var
 hm : HMENU;
begin
 case wParam of
  104,204: begin  {104 和 204 是在資源文件中指定的菜單標識}
   if LoWord(wParam) = 104 then
    hm := LoadMenu(HInstance, 'MyMenu2')
   else
    hm := LoadMenu(HInstance, 'MyMenu1');
   DestroyMenu(GetMenu(h));
   SetMenu(h, hm);
   DrawMenuBar(h);
  end;
 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.


  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved