---

Hvordan får man en TEdit til kun at accepterer tal?

--
Venlig Hilsen
Kasper Ekelund
-swinsystem
electriz@pobox.dk
ICQ#97021932

---

Tjekker ordinalværdien ved onchange (ord(x..y)), eller bruger en maskedit.

--
- Thomas
~~~~~~~~
.... http://www.FlowCode.f2s.com - where code flows
.... mailto:blomme@post.com - where email goes

---

>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

---

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