CODEWITHSUNDEEP
delphidelphi-xe2
Steffen Binas
Steffen Binas

Reputation: 1468

TAction.SecondaryShortCuts is language specific. How to set it correctly?

I just used the SecondaryShortCuts-Feature of Delphi's TAction. But Shortcuts are defined by Strings, like "F5" or "Shift+F5". Now the problem: On my German Windows the action doesn't fire, because the key "Shift" is called "Umsch" in German! Does it mean the SecondaryShortCuts-Property is completely useless at design time, because nobody can create applications which work internationally with that?

I could set the key at runtime by translating the VK_SHIFT into the correct name. I tried it via GetKeyNameText but this didn't worked because it gave the long form "Umschalt" not "Umsch". Anybody know the function to get the short version of the key name?

Upvotes: 5

Views: 818

Answers (1)

GolezTrol
GolezTrol

Reputation: 116110

You could try this: Generate the shortcut text from a shortcut:

var
  s: TShortCut;
begin
  s := ShortCut(Ord('A'), [ssShift]);
  Action1.SecondaryShortCuts.Add(ShortCutToText(s));

By the way, these values are determined by the following constants. Have you translated those? And if so, do you need to?:

SmkcShift = 'Shift+';
SmkcCtrl = 'Ctrl+';
SmkcAlt = 'Alt+';

Upvotes: 6

Related Questions