menu菜單屬性AutoHotkeys

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.
           

　　

轉載于:https://www.cnblogs.com/chuangyiyuan/p/6918486.html