Nimm' dir ein leeres Projekt, pack ein Label drauf und in das OnKeyPress-Ereignis kommt:
Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Label1.Caption := IntToStr(Ord(Key));
end;
Marc
9 von 10 Stimmen in meinem Kopf sagen ich bin nicht verrückt, die 10. summt die Melodie von Tetris... | Wenn das die Lösung ist, dann hätte ich gerne mein Problem zurück! |
engbarth.es