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

  • 主题发起人 主题发起人 import
  • 开始时间 开始时间
I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
把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
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
I
回复
0
查看
739
import
I
后退
顶部