/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Kun tal i Edit?
Fra : Kasper Ekelund


Dato : 26-06-01 10:25

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

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



 
 
Thomas P (26-06-2001)
Kommentar
Fra : Thomas P


Dato : 26-06-01 13:53

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



Claus Nielsen (26-06-2001)
Kommentar
Fra : Claus Nielsen


Dato : 26-06-01 16:49

>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

Kasper Ekelund (26-06-2001)
Kommentar
Fra : Kasper Ekelund


Dato : 26-06-01 19:16

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



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste