Zitat:
falsche Eingaben abzufangen dürfte schwer werden. Stichwort Zwischenablage, Paste.
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9']) then
key := #0;
end;
Wieso soll das schwer sein? Oder ist dir das zu schwer?
Gruß