Tastencode TShortCut umwandeln in Text (STRG + ALT + F1)

HRNICKEL · Hält's aus hier Beiträge: 9

Hallo

ich brauche eine Funktion wie

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

function GetKeyText(nKey:Integer):String;
Begin
  case nKey of
  49264 : Result := 'STRG + ALT + F1';
  49265 : Result := 'STRG + ALT + F2';
end;

Gibt es da was fertiges ?

Moderiert von Martok: Delphi-Tags eingefügt

Martok · Verfasst: Sa 20.11.10 18:49

Hi,

Delphi kennt dafür ShortCutToText (Unit Menus). Wie man den KeyCode in ein TShortCut umwandelt, sollte sich auch finden lassen. Wenn nicht, muss man sich das halt selber bauen, aber da gehts ja nur darum, den ShiftState rauszusieben.

Grüße,
Martok

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme