Bezeichnungen von Shortcuts ändern, aber wie?

[toms]

So, ich habe nun wie angekündet eine Komponente daraus erstellt.

TTranslateShortCutText

Nachtrag: Getestet unter D6, D2009.

Die Komponente kann installiert werden oder man erzeugt einfach zur Laufzeit eine Instanz:

Delphi-Quellcode:

var
  TranslateShortCutText1 := TTranslateShortCutText;

begin
  TranslateShortCutText1 := TTranslateShortCutText.Create(Self);
  with TranslateShortCutText1 do
  begin
    // Eigene Shortcut Bezeichnungen zuweisen:
    Key_Backspace := 'MyBackspace';
    Key_Tabulator := 'Tab';
    Key_Return := 'Enter';
    Key_Escape := 'Esc';
    Key_Space := 'Space';
    Key_Prior := 'PgUp';
    Key_Next := 'PgDn';
    Key_End := 'End';
    Key_Home := 'Home';
    Key_Left := 'Left';
    Key_Up := 'Up';
    Key_Right := 'Right';
    Key_Down := 'Down';
    Key_Insert := 'Insert';
    Key_Delete := 'Del';
    Key_Alt := 'Alt+';
    Key_Ctrl := 'Ctrl+';
    Key_Shift := 'Shift+';
    RefreshMenuItems;
  end;
end;

Verbesserungsvorschläge bitte mir senden, Ideen sind Willkommen !