Hallo,
folgendes sollte es tun.
Delphi-Quellcode:
procedure TForm4.FormKeyPress(Sender: TObject; var Key: Char);
begin
if UpCase (Key) in ['A'..'Z'] then
begin
// Mach was
Key := #0
end
end;
Zitat:
in meinem Fall nur Buchstaben von A bis Z drücke
UpCase funktioniert nur für diese Fälle. Wenn Du andere Keys abfangen möchtest, dann halt in der Menge angeben.
Gruß