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 =(