onKeyPress, só deixar digitar valores

Delphi

03/10/2008

Como fazem com que um Edit só deixe digitar, valores com vírgula, pra poder utilizar o campo para cáculo de valores?

Fiz dessa forma, mas assim ele bloqueia tudo só deixando digitar os números, mas vírgula não consigo.
//onKeyPress
if not(key in [´0´..´9´,#8,13]) then
key := 0;


Janete

Janete

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

03/10/2008

adicione a vírgula na sua avaliação.

if not(key in [´0´..´9´,#8,13,´,´]) then
key := 0;


GOSTEI 0
Nasguone

Nasguone

03/10/2008

if not(key in [´0´..´9´,´,´..´.´,#8,13]) then
key := 0;

basta incluir a virgula e o ponto...porem isso não e tratavel como uma mascara ex pode ser digitado assim 1,000.00 ao invez de 1.000,00

Espero que te ajude
E.C.S


GOSTEI 0
POSTAR