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

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


函数说明

将一个快捷键转换为文本字符串


引用单元

     uses Vcl.Menus;


函数原型


function ShortCutToText(ShortCut: TShortCut): string;   



第一个参数  ShortCut:要转换的快捷键



其它参考


    TextToShortCut   将一个文本转换成快捷键




运用实例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