ShortCutToText 把快捷键转换为文本字符串的函数

var

   w: Word;

   s: string;

begin

   w := TextToShortCut('Ctrl+A');

   ShowMessage(IntToStr(w)); {16449}

   s := ShortCutToText(16449);

   ShowMessage(s);           {Ctrl+A}

end;

运用实例2

FactSelectAll := TAction.Create(Self);
FactSelectAll.OnExecute := OnExecute;
FactSelectAll.Name := 'actSelectAll';
FactSelectAll.Caption := '全选(&A)';
FactSelectAll.ShortCut := TextToShortCut('Ctrl+A');