首页 > 其他 > 详细

menu菜单属性AutoHotkeys

时间:2017-05-29 17:56:59      阅读:443      评论:0      收藏:0      [点我收藏+]
 MyMenu.AutoHotkeys := maManual;      {指定为手动加速键; 默认是自动添加的}

manual  
英[?mænju?l] 美[?mænju?l] 复数:manuals
基本释义同反义词相关资料adj.
1.用手的, 手工的
2.手动的;手控的;用手操作的
3.手册形式的,像手册的;教范性质的
4.【法律】实际占有的
5.体力的
n.

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

implementation

{$R *.dfm}

var
  MyMenu: TMainMenu;
  Item: TMenuItem;

procedure TForm1.FormCreate(Sender: TObject);
var
  Itemd: TMenuItem;
begin
  MyMenu := TMainMenu.Create(Self);
  MyMenu.AutoHotkeys := maManual;      {指定为手动加速键; 默认是自动添加的}
  Self.Menu := MyMenu;


  Item := TMenuItem.Create(MyMenu);
  Item.Caption := ‘AA‘;                {这个没设加速键}
  MyMenu.Items.Add(Item);

    Itemd := TMenuItem.Create(MyMenu);
    Itemd.Caption := ‘A&1‘;            {指定加速键为: Alt+1}
    Item.Add(Itemd);

    Itemd := TMenuItem.Create(Item);
    Itemd.Caption := ‘A&2‘;            {指定加速键为: Alt+2}
    Item.Add(Itemd);
end;

end.

  

 

menu菜单属性AutoHotkeys

原文:http://www.cnblogs.com/chuangyiyuan/p/6918486.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!