Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(sender: TObject; var key: Char);
begin
if not (key in [#8, #9, #48 .. #57]) then key:=#0;
end;
Hiermit kann man die Eingabe auf nur Zahlen beschränken. Die Tabulator und Entertaste wird auch noch frei gelassen.
mfg
