Hallo,
so kann man ja nicht mal mit der Taste über Enter löschen, aber 3,,,4--4,,, usw kann eingegeben werden...
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); //Das hier im OnKeyPress fängt alles ab was keine Zahl is
begin
if not (Key in ['0'..'9']) then Key:= #0;
end;
Geht das nicht noch etwas besser?
mfG naudoc