Man ist ja ein freundlicher Mensch
Also: Zieh ein Memo aufs Form und stell ReadOnly auf TRUE; Setze KeyPreview des Forms auf TRUE und erstell die Events OnKeyUp und OnKeyDown des Forms. Hier der Code:
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Memo1.Lines.Add(Format('Taste %d gedrückt',[Key]));
end;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
Memo1.Lines.Add(Format('Taste %d losgelassen',[Key]));
end;
Dann kompiliere und drücke ein wenig auf der Tastatur rum... es müsste dann die Nummer der Taste und ob losgelassen oder gedrückt angezeigt werden...