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

[Assun]

Zitat:

Zitat von BenjaminH

Zitat:

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;