Okayer, det virker, takker! : )
"Claus Nielsen" <cnn@post6.tele.dk> skrev i en meddelelse
news:fibhjtsucgmas4jkm2078a7cpnimh3t34l@4ax.com...
> >Hvordan får man en TEdit til kun at accepterer tal?
>
> Der er mange måder... En af dem ser sådan her ud:
>
> procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
> begin
> if not (Key in ['0'..'9', #8]) then
> Key := #0;
> end;
>
> #8 er backspace... Den er som regel god at have med.
>
> Mvh, Claus Nielsen
> --
> e-mail: cnn@post6.tele.dk
> homepage:
http://home6.inet.tele.dk/cnn