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.
原文:http://www.cnblogs.com/chuangyiyuan/p/6918486.html