Namen der virtuellen Tastencodes

[Mazel]

HI,

ich habe jetzt eine andere Lösung, nur gibt es dabei noch ein Problem, siehe Anhang:

Delphi-Quellcode:

procedure TForm1.EditHotkeyKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  TempShortCut: TShortCut;

begin
  TempShortCut:=ShortCut(Key, shift);
  EditHotkey.Text:=ShortCutToText(TempShortCut);
end;

Warum stehe bei einem Druck auf die STRG-Taste STRG 2 mal da und einmal davon klein?

Gruß
Mazel