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;