你应该使用ModifyMenu函数 :
BOOL ModifyMenu(HMENU hMnu,UINT uPosition,UINT uFlags,UINT uIDNewItem, LPCTSTR lpNewItem);
第一个参数h M e n u指的是要修改菜单的句柄;第二个参数u P o s i t i o n指的是要修改的菜单项
索引,其值从零开始到菜单项的总数减一;第三个参数u F l a g s指的是新菜单项的状态;第四个
参数u I D N e w I t e m是指新菜单的句柄;第五个参数l p N e w I t e m指的是修改后菜单的标题。
如果设置第四个参数为新菜单的句柄,程序运行时就会把菜单项改成重新设计的模式。
给你做了一个小程序,你可以明白的 :
1) 通过File | New Application创建一个新工程。
2) 在窗体F o r m 1中添加M a i n M e n u组件,通过右键弹出式菜单的Menu Designer命令设计一个
简单的菜单,包括两个菜单项,其C a p t i o n属性分别设置为& F i l e和& H e l p。
3) 在F o r m 1的O n C r e a t e事件的处理过程中添加以下代码:
procedure TForm1.Form1Create(Sender: TO b j e c t )
b e g i n
// mf_Help参数决定菜单项位于窗口的最右端
ModifyMenu(MainMenu1.Handle,1,mf_BYPosition ormf_Popup or mf_Help,Help1.Handle,'帮助( & H ) ' )
end;