Como bloqueiar um edit para s� aceitar numeros?

Question

:D amigos , como bloqueiar um edit para s� aceitar numeros .......

Jotadeefe · Answer

[code:1:5f1ad43b07]procedure TfPrincipal.ApenasTeclasNumericas(var parTecla: Char);begin  if (not(parTecla in &#91;�0�..�9�,8,13,�,�&93;)) then      parTecla := 0;end;[/code:1:5f1ad43b07]Chame atrav�s da OnKeyPress de qualquer edit dessa maneira (declare a unit onde voc� criou a procedure acima):[code:1:5f1ad43b07]  fmm.ApenasTeclasNumericas(Key);[/code:1:5f1ad43b07]...

Jotadeefe · Answer

Esqueci de dizer: a procedure acima aceita n�meros, backspace, enter e a v�rgula...

Raserafim · Answer

fabio, no evento  OnKeyPress:[code:1:c8a6aa7911]if ((Key >= �0�) and (Key <= �9�)) or (integer(Key) = 8) thenelse  Abort;[/code:1:c8a6aa7911]...

Jose Almeida · Answer

Ou Assim[color=green:24373d4bb2]:[quote:24373d4bb2]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);beginif not ( Key In [�0�..�9�,�.�,#8] ) then Abort;end;[/quote:24373d4bb2][/color:24373d4bb2]...

F�rum Como bloqueiar um edit para s� aceitar numeros? #278407