lol danke ^^ habs noch so erweitert , dass backspace und space funzt , aber Zeichen hab ich auch rausgeschmissen
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not(key in [#8,#32,#65..#90,#97..#122])
then key := #0 ;
end;
Greetz,D