uses Menus;... implementation {$R *.dfm} ... //Make sure you have a form and a hotkey component and also a button :) procedure TForm1.Button1OnClick(Sender: TObject); var Text: string; begin Text := ShortcutToText(Hotkey1.Hotkey); ShowMessage(Text); end;
Advertisement
2,929
pages
ShortCutToText Routine/Example1
Advertisement