|
Registriert seit: 12. Okt 2016
235 Beiträge
Delphi 10 Seattle Professional
|
AW: KeyPress, Keydown
20. Apr 2017, 07:40
Ich habe gerade sowas hier gefunden:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['A'..'Z', 'a'..'z', 'ä', 'ö', 'ü', 'Ä', 'Ö', 'Ü', 'ß', #8]) then key:=#0;
end;
scheint aber nicht zu funktionieren.. zumindest komme ich mit alt+Tab aus dem Programm (, was ich zum Beispiel vermeiden will, da das Programm geschlossen werden soll).
|