Windows 编程[20] - 改变菜单项并换行

MyMenu1 MENUEX
BEGIN
MENUITEM "File"  ,101
MENUITEM "Add"   ,102
END

program Project1;

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

uses
Windows, Messages;

var
i: Word = 1;

{收到 WM_COMMAND 消息时需要做的工作}
procedure OnCommand(h: HWND; wParam: Integer);
var
s: string;
begin
case LoWord(wParam) of
102: begin  {102 是在资源文件中指定的菜单标识}
Str(i, s);
s := 'NewMenu_' + s;
AppendMenu(GetMenu(h), MFT_STRING or MFT_MENUBREAK, i, PChar(s));
DrawMenuBar(h);
Inc(i);
end;
else begin
Str(wParam, s);
MessageBox(0, PChar(s), '', 0);
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.