TextToShortCut 将文本转换成热键的函数

学习大师原创文档，请勿转载，侵权必究。

函数说明

讲一个文本转换成快捷键

引用单元

uses Vcl.Menus;

函数原型

function TextToShortCut(Text: string): TShortCut;；

第一个参数　 Text：要转换为快捷键的文本

其它参考

ShortCutToText 把一个热键或者一个组合热键转换成文本

运用实例1

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');