假如我們用 TMainMenu 控件設計如下菜單:

---

該菜單在窗體源文件中是這樣存儲的:

---

object MainMenu1: TMainMenu Left = 160 Top = 104 object File1: TMenuItemCaption = '&File'object New1: TMenuItemCaption = '&New'endobject Open1: TMenuItemCaption = '&Open'endobject Save1: TMenuItemCaption = '&Save'endobject SaveAs1: TMenuItemCaption = 'Save &As'endobject N1: TMenuItemCaption = '-'endobject Exit1: TMenuItemCaption = 'E&xit'end end object Edit1: TMenuItemCaption = '&Edit'object Cut1: TMenuItemCaption = 'Cu&t'endobject Copy1: TMenuItemCaption = '&Copy'endobject Paste1: TMenuItemCaption = '&Paste'end end object Help1: TMenuItemCaption = '&Help'object About1: TMenuItemCaption = '&About'end end 在 VC 中, 菜單設計是要保存在資源源文件(*.rc)中, 不管是 VC 還是 Delphi 用什么臨時儲存方式, 但最終都會被編譯成相同的資源文件(*.res).

在 Delphi 中如果想要更靈活地使用菜單, 也回避不了使用資源文件.

原來在學習資源文件時曾經簡單接觸過菜單資源(參考以前的內容), 不過這次要站在 Windows 的角度, 涉及更多內容!

---

下面是和上例對應的資源文件.

建立步驟:

1、新建控制臺工程, 保存! 然后再建立資源文件;

2、建立資源文件: File -> New -> Other... -> Text , 寫入下面資源文件代碼, 和工程保存在相同文件夾, 保存為 *.rc, 我這里使用的是: TestRes.rc;

3、然后從工程中導入資源文件(Project Manager 窗口, 右鍵點擊工程名 - Add);
此時工程代碼會自動增加一行: {$R 'TestRes.res' 'TestRes.rc'}

4、注意: 在次以后在工程中修改資源名, 工程代碼會隨之改變; 修改資源代碼后需要先保存, 編譯時才有效!

5、另外, 菜單資源的寫法還是挺復雜的、功能也很強大; 后面的例子再說.

---

MyMenu1 Menu BeginPopup "&File"BeginMenuItem "&New"MenuItem "&Open"MenuItem "&Save"MenuItem SeparatorMenuItem "E&xit"EndPopup "&Edit"BeginMenuItem "Cu&t"MenuItem "&Copy"MenuItem "&Paste"EndPopup "&Help"BeginMenuItem "&About"End End 調用代碼:

和原來的程序只有兩行不同:

1、{$R 'TestRes.res' 'TestRes.rc'} --- 這是插入資源文件
2、cls.lpszMenuName := 'MyMenu1'; --- 這是指定菜單

---

program Project1;{$R 'TestRes.res' 'TestRes.rc'}usesWindows,Messages,SysUtils;function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall; beginResult := 0;case msg ofWM_DESTROY : PostQuitMessage(0);elseResult := DefWindowProc(wnd, msg, wParam, lParam);end; end;function RegMyWndClass: Boolean; varcls: TWndClass; begincls.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'; {在這里指定菜單資源, MyMenu1 是編輯資源文件時命名的}cls.lpszClassName := 'MyWnd';Result := RegisterClass(cls) <> 0; end;{程序入口} consttit = 'New Form';ws = WS_OVERLAPPEDWINDOW;x = 100; y = 100; w = 300; h = 180; varhWnd: THandle;Msg : TMsg; beginRegMyWndClass;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)) dobeginTranslateMessage(Msg);DispatchMessage(Msg);end; end. 效果圖:

---

轉載于:https://www.cnblogs.com/del/archive/2008/04/20/1162321.html

總結

以上是生活随笔為你收集整理的Windows 编程[12] - 菜单与菜单资源(一)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。