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

[Assun]

Zitat von 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;

dein Beispiell geht leider nicht

und ich will das net per showmessage machen sondern so dass es direkt da steht.

also müsste es das beispiel sein, aber er bringt mir nen error :

[Fehler] MultiKey_uMain.pas(164): E2010 Inkompatible Typen: 'Word' und 'Char'

[Lannes]

Hallo,
wenn du auch z.B die Tasten [Pos1] oder [F1], [F2] ... ins Edit schreiben willst dann so:

Delphi-Quellcode:

uses Menus;//<----Unit einbinden
//...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit1.Text := ShortCutToText(Key);
  key := 0;//<---- damit Taste nicht ausgeführt wird
end;