Windows 編程[12] - 菜單與菜單資源(一)

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

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

object　MainMenu1:　TMainMenu
Left　=　160
Top　=　104
object　File1:　TMenuItem
　Caption　=　'&File'
　object　New1:　TMenuItem
　　Caption　=　'&New'
　end
　object　Open1:　TMenuItem
　　Caption　=　'&Open'
　end
　object　Save1:　TMenuItem
　　Caption　=　'&Save'
　end
　object　SaveAs1:　TMenuItem
　　Caption　=　'Save　&As'
　end
　object　N1:　TMenuItem
　　Caption　=　'-'
　end
　object　Exit1:　TMenuItem
　　Caption　=　'E&xit'
　end
end
object　Edit1:　TMenuItem
　Caption　=　'&Edit'
　object　Cut1:　TMenuItem
　　Caption　=　'Cu&t'
　end
　object　Copy1:　TMenuItem
　　Caption　=　'&Copy'
　end
　object　Paste1:　TMenuItem
　　Caption　=　'&Paste'
　end
end
object　Help1:　TMenuItem
　Caption　=　'&Help'
　object　About1:　TMenuItem
　　Caption　=　'&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
Begin
　Popup　"&File"
　Begin
　　MenuItem　"&New"
　　MenuItem　"&Open"
　　MenuItem　"&Save"
　　MenuItem　Separator
　　MenuItem　"E&xit"
　End

　Popup　"&Edit"
　Begin
　　MenuItem　"Cu&t"
　　MenuItem　"&Copy"
　　MenuItem　"&Paste"
　End

　Popup　"&Help"
　Begin
　　MenuItem　"&About"
　End
End

調用代碼:

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

　　1、{$R 'TestRes.res' 'TestRes.rc'} --- 這是插入資源文件

　　2、cls.lpszMenuName := 'MyMenu1'; --- 這是指定菜單

program　Project1;

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

uses
　Windows,
　Messages,
　SysUtils;

function　WndProc(wnd:　HWND;　msg:　UINT;　wParam:　Integer;　lParam:　Integer):　Integer;　stdcall;
begin
　Result　:=　0;
　case　msg　of
　　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';　{在這裡指定菜單資源,　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.

效果圖: