Menus - associando hotkey em runtime |
Top Previous Next |
// Associando uma tecla de atalho em runtime:
procedure TForm1.Button1Click(Sender: TObject); begin X11.ShortCut := ShortCut(Ord('A'), [ssCtrl]); // Ctrl+A // OU X11.ShortCut := TextToShortCut('Ctrl-A'); end;
procedure TForm1.X11Click(Sender: TObject); begin MessageBeep(0); end;
|