FANDOM


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;

Ad blocker interference detected!


Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.