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

[Assun]

Hi :-)

Folgendes...

Ihr kennt doch sicher bei Spielen, wenns um die Tastenbelegung geht dieses "Bitte drücken SIe nun eine Taste" Fenster.

Da drückt man dann irgendwas und diese Taste wird erkannt und eine aktion hinzugefügt.

Sowas brauch ich nun auch ;-)

Doch ich habe keine Ahnung wie ich das realisieren soll :(

also das Programm soll wiegesagt erkennen was ne taste auf dem formular gedrückt wurde.

habt ihr ideen / tipps / links ?

Bin für jede Hilfe dankbar :-)

Gruß Assun

[Nikolas]

Schau mal nach dem Form.KeyDown ereigniss an. Das könnte dir helfen. Für die Tastenbelegungen könnte dir
Leuselators Keyboard-programm nutzen.

[Rastaman]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  ShowMEssage(IntToStr(key));
end;

//Edit: Kein roter kasten ... :wall:

[BenjaminH]

Mh, ich glaube da ist die Property KeyPreview von TForm ganz interessant, da wird jedes Tastaturereigniss erstmal an die Form weitergeleitet(OnKeyDown)..
Grüße Benjamin

P.S: Ja ich hab die anderen Beiträge gesehen, es war ein roter kasten da.., aber ich halte den KeyPreview dafür für sinnvoll..

[Assun]

omg wie peinlich ^^

aber trotzdem vielen vielen Dank :-)

[Rastaman]

Is ja nun wirklich nix peinlich dran :roll:

[Assun]

ich stehe leider schon wieder etwas auf dem schlauch....

ich habe nun folgenden code :

Delphi-Quellcode:

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

doch wenn ich nun eine taste drücke wird z.b. wenn ich "a" drücke folgendes im edit angezeigt :

http://img209.imageshack.us/img209/4945/scheiss6ne.jpg

Was mache ich falsch ?

[Luckie]

Gar nichts. Es passiert genau das, was du programmiert hast. Das kleine "a" hast du selber eingegeben und das große wird von deinem Code eingefügt. Von der Tastataur kommen nur Großbuchstaben.

[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;

[Nils_13]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit1.Text := Edit1.Text + Chr(Key);
  if Key = ord('A') then
    ShowMessage(Edit1.Text);
end;

Ich habe zum testen Enabled auf False gestellt, es läuft einwandfrei.
ShowMessage ersetzen und fertig.