Tastendruck Ausgeben

[MaToBe]

Zitat von MaToBe:

Delphi-Quellcode:

procedure TfPlayerSteuerung.edtLinksKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    edtLinks.Text := inttostr(Key);
    vKey := inttostr(Key);
end;

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 der ersten Prozedure will ich die Taste speichern.

Mit der 2. Prozedure will ich erreichen, dass wenn die Taste gedrükt wird, eine ShowMessage kommt.

Nur leider geht das

Delphi-Quellcode:

case key of
         VK_ + vKey : ShowMessage('Hallo');
     end;

nicht =(