
(*
 Delphi Object and Component Reference
#{bmc bm9.BMP} ShortCutToKey example
The following code redefines the ShortCut of CloseCommand if the original short cut used a shift state that includes ssCtrl.
Word TheKey;
TShiftState TheShiftState;
ShortCutToKey(CloseCommand->ShortCut, TheKey, TheShiftState);
if (TheShiftState.Contains(ssCtrl))
  CloseCommand->ShortCut = ShortCut(Word('C'), TShiftState() << ssShift); 
