菜单项通过 ShortCut 属性来设定快捷键, ShortCut 是 TShortcut 类型的; TShortcut 是一个子界: 0..65535
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.

效果图:


posted on 2008-02-04 23:18  万一  阅读(2439)  评论(0编辑  收藏  举报