Duvida no Edit.
Caros amigo....
Estou com uma pequena dúvida como faço para o meu edit receber somente numeros? isto é quando eu for digitar algum caractere, que nao seja um numero ele nao aceite.
Desde já ogb pela atenção de todaos aqui no Forum.
Atenciosamente
Estou com uma pequena dúvida como faço para o meu edit receber somente numeros? isto é quando eu for digitar algum caractere, que nao seja um numero ele nao aceite.
Desde já ogb pela atenção de todaos aqui no Forum.
Atenciosamente
Alexespina
Curtidas 0
Respostas
Beto_martini
12/09/2005
Olá Alex.
Existem várias maneiras para tal. Acho que um bem didática seria a seguinte:
No evento onkeypress do edit coloque o seguinte código:
var numeros:string;
begin
numeros:=´0123456789´;
if pos(key,numeros)<1 then
key:=#0;
end;
Espero ter ajudado.
Existem várias maneiras para tal. Acho que um bem didática seria a seguinte:
No evento onkeypress do edit coloque o seguinte código:
var numeros:string;
begin
numeros:=´0123456789´;
if pos(key,numeros)<1 then
key:=#0;
end;
Espero ter ajudado.
GOSTEI 0
Alexespina
12/09/2005
Obg pela dica amigo funcionou mesmo!!!
GOSTEI 0
Rjun
12/09/2005
Você também poderia colocar o código abaixo no OnKeyPress para aceitar o BackSpace.
if not (key in [´0´..´9´, 8]) then key := 0;
GOSTEI 0
Marcio.theis
12/09/2005
Ou ainda você pode usar:
Ou então usar o componente [url=http://www.revolution.com.br/delphistop/tredit.zip]RealEdit[/url]
if ((key <> #8) and (key < 48)) or (key > 59) then
key:=0;Ou então usar o componente [url=http://www.revolution.com.br/delphistop/tredit.zip]RealEdit[/url]
GOSTEI 0