学习大师原创文档,请勿转载,侵权必究。
函数说明
讲一个文本转换成快捷键
引用单元
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');
|