菜单学习相关汇总

1.菜单显示与隐藏

 

参考：http://www.cnblogs.com/del/archive/2007/11/21/967017.html

实例：//隐藏与显示菜单

Self.Menu := nil; {隐藏菜单} Self.Menu := MainMenu1; {显示菜单}

2.菜单添加和隐藏多余的分割线：

 

参考：http://www.cnblogs.com/del/archive/2008/02/04/1064288.html

实例：
Itemd := TMenuItem.Create(MyMenu);
Itemd.Caption := '-'; {这是分割线}
Item.Add(Itemd);

MyMenu.AutoLineReduction := maAutomatic; {默认会自动隐藏多余的分割线}
//MyMenu.AutoLineReduction := maManual; {设定为手动会显示所有分割线}

 

3.更换菜单：

参考链接：http://www.cnblogs.com/del/archive/2008/02/04/1064541.html
实例：
Self.Menu := nil; {当前 Form 没有指向任何一个菜单}

procedure TForm1.Button1Click(Sender: TObject);
begin
Self.Menu := MyMenu1; {指向第一个菜单}
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Self.Menu := MyMenu2; {指向第二个菜单}
end;

 

4.指定快捷键：

参考链接：http://www.cnblogs.com/del/archive/2008/02/04/1064629.html

实例：
Itemd := TMenuItem.Create(MyMenu);
Itemd.Caption := 'A1';
Itemd.ShortCut := 16449; {这一句话就为菜单项 A1 指定了快捷键: Ctrl+A }
Item.Add(Itemd);

 

转载于:https://www.cnblogs.com/ddxxxb/p/6964091.html