http://docwiki.embarcadero.com/CodeExamples/Berlin/en/ShortCut_(Delphi)
procedure TForm1.FormCreate(Sender: TObject); begin OpenCommand.ShortCut := Menus.ShortCut(Word(‘O‘), [ssCtrl]); end; procedure TForm1.OpenCommandClick(Sender: TObject); begin MessageDlg(‘The Open command has been selected.‘, mtInformation, [mbOk], 0); end;
原文：http://www.cnblogs.com/cb168/p/6755486.html