Zitat von
sniper_w:
Delphi-Quellcode:
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
// allow only numbers and backspace
if not( Key in ['0'..'9', #8] ) then
Key := #0;
end;
Die Such hätte dich auch weiter gebracht ( vermutlich schneller
).
die obige Fn verhindert leider nicht, das der Benutzer etwas via Clipboard reinkopiert
mfg DerDan