"Bitte eine Taste drücken" und dann Virtual Key Code erhalte

[BenjaminH]

Zitat von Assun:

Delphi-Quellcode:

procedure TForm1.TastenKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Tasten.Text := chr(Key);
end;

Wenn du willst, dass nur chr(Key) als Eingabe angesehen werden soll mache das einfach so:

Delphi-Quellcode:

procedure TForm1.TastenKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Key := chr(Key);
end;