bloquear letras em um edit

Delphi

30/01/2007

Ola pessoal!

Alguém pode me dizer como eu faço pra que em um Edit eu só possa digitar números, mas de uma forma que eu possa ativar o BackSpace.

desde já agradeço.


Fabiosys

Fabiosys

Curtidas 1

Melhor post

Rjun

Rjun

30/01/2007

Coloque esse código no evento OnKeyPress do seu Edit.

if (not (Key in [´0´..´9´])) and (Key <> 8) then
  Key := 0;



GOSTEI 2

Mais Respostas

Sergiomurilope

Sergiomurilope

30/01/2007

Ola pessoal! Alguém pode me dizer como eu faço pra que em um Edit eu só possa digitar números, mas de uma forma que eu possa ativar o BackSpace. desde já agradeço.


Boa tarde, bem eu sou iniciante e aprendi assim, usando o case

case Key of
´0´ .. ´9´, #8:;
else
Key := 0;
end;

espero que tenha ajudado


GOSTEI 0
POSTAR