Edit-Feld: nur Zahlen + Kopieren/Einfügen?

[Binärbaum]

Zitat von Toxman:

Geh doch im Onchange alle Buchstaben durch und überprüfe ob es Zahlen sind:

Delphi-Quellcode:

str:='';
for i:=0 to length(e1.text)-1 do
if (e1.text[i] in ['0'..'9']) then str:=str+e1.text[i];

e1.text:=str;

Alternativ kannst du auch die Buchstaben per delete rausnehmen.

Das ist fast schon etwas zu umständlich. Man bräuchte diese for-Schleife gar nicht, wenn man schon im OnKeyXXXXX die ungültigen Zeichen rausfiltert.