TMainMenu 類[三] – 手動建立菜單(7) : 指定快速鍵

功能表項目通過 ShortCut 屬性來設定快速鍵, ShortCut 是 TShortcut 類型的; TShortcut 是一個子界: 0..65535
ShortCut 的所有可選值請參加列表: http://www.cnblogs.com/del/archive/2008/02/04/1064631.html

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Menus;type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);  end;var  Form1: TForm1;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 := 'A1';    Itemd.ShortCut := 16449; {這一句話就為功能表項目 A1 指定了快速鍵: Ctrl+A }    Item.Add(Itemd);end;end.

: