TMainMenuクラス[3]-手動作成メニュー(7):ショートカットキーの指定
1313 ワード
メニュー項目はShortCut属性によってショートカットキーを設定し、ShortCutはTShortcutタイプである.TShortcutはサブ境界です:0..65535
ShortCutのすべてのオプション値は、リストに参加してください.
http://www.cnblogs.com/del/archive/2008/02/04/1064631.html
ShortCutのすべてのオプション値は、リストに参加してください.
http://www.cnblogs.com/del/archive/2008/02/04/1064631.html
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 := 'A1';
Itemd.ShortCut := 16449; { A1 : Ctrl+A }
Item.Add(Itemd);
end;
end.
効果図: