unit Unit1; interface uses 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 := 'A&1'; {指定加速键为: Alt+1} Item.Add(Itemd); Itemd := TMenuItem.Create(Item); Itemd.Caption := 'A&2'; {指定加速键为: Alt+2} Item.Add(Itemd); end; end.效果图:
TMainMenu 类[三] - 手动建立菜单(3) : 设定加速键
最新推荐文章于 2023-12-21 09:17:59 发布