Thema: Delphi Tastendruck Ausgeben

Einzelnen Beitrag anzeigen

MaToBe

Registriert seit: 2. Aug 2008
162 Beiträge
 
#4

Re: Tastendruck Ausgeben

  Alt 15. Feb 2009, 17:18
Delphi-Quellcode:
procedure TfPlayerSteuerung.edtLinksKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    edtLinks.Text := inttostr(Key);
    vKey := inttostr(Key);
end;
bei dieser Procedure kommt für E jetzt die Zahl 69 heraus.

Heißt das, dass wenn ich dann beispielsweise abfrage

Delphi-Quellcode:
procedure TfPlayerSteuerung.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
    case key of
         VK_ + vKey : ShowMessage('Hallo');
     end;
end;
dass dann die ShowMessage kommt? Irgendwas klappt da nämlich noch nicht ganz.
  Mit Zitat antworten Zitat