首页  编辑  

把Help菜单移动到Form的最右边

Tags: /超级猛料/VCL/Menu.菜单/   Date Created:
把Help菜单移动到Form的最右边。
唐春晖
在设计程序时,我们通常是将Help菜单放到菜单的最后一项,
在这里有一个方法,可以将菜单放到整个Form的最右边,以突出
菜单的显示,在Delphi 1.0时,我们可以这么做
 MenuItem1.Caption :=#8 + MenuItem1.Caption;
在Delphi 2.0里,我们可以这么做
 ModifyMenu(MainMenu1.Handle, 1, mf_ByPosition or mf_Popup or mf_Help,
 MenuItem1.Handle, '&Help';
试试吧,很好玩的
在MainForm的OnCreate事件中加入:
 ModifyMenu(MainMenu.Handle, 2, mf_ByPosition or mf_Popup or mf_help,
   H1.Handle, '帮助(&H)'); //使帮助菜单项移到窗口的右上角
//MainMenu:菜单控件名
//H1:菜单项[帮助]名
//2:帮助在第3项,这里就设为3-1