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


联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678