Duvida no Edit.

Question

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 ate...

Beto_martini · Answer

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....

Alexespina · Answer

Obg pela dica amigo funcionou mesmo!!!...

Rjun · Answer

Voc� tamb�m poderia colocar o c�digo abaixo no OnKeyPress para aceitar o BackSpace.[code:1:f8d795276b]if not (key in &#91;�0�..�9�, 8&93;) then  key := 0;[/code:1:f8d795276b]...

Marcio.theis · Answer

Ou ainda voc� pode usar:[code:1:6e957c9fa0]if ((key <> #8) and (key < 48)) or (key > 59) then key:=0;[/code:1:6e957c9fa0]Ou ent�o usar o componente [url=//www.revolution.com.br/delphistop/tredit.zip]RealEdit[/url]...

F�rum Duvida no Edit. #295215