Alguem aki sabe como permitir o edit receber soh numeros?
03/12/2003
0
Eu estow precisando fazer o edit receber soh numeros...será que tem algum comando q avisa o usuario se ele preencher o edit com alguma letra? :wink:
valeu :lol:
valeu :lol:
Estroncios
Curtir tópico
+ 0
Responder
Posts
03/12/2003
Deus
Facílimo. É só no evento OnKeyPress dele você usar o seguinte código:
Com isso, você está dizendo que, ao digitar qualquer caractere, ele só ira aceitar a inserção se ele estiver entre 0 e 9, ou se ele for um backspace (8) para apagar, ou se ele for um enter (13), usado às vezes para passar de um componente para o outro. [img:53e45613c2]http://delphiforum.icft.com.br/forum/images/smiles/icon_smile.gif[/img:53e45613c2] Se a sua intenção é também avisar o usuário do problema, é só colocar um [i:53e45613c2]begin / end[/i:53e45613c2] depois do [i:53e45613c2]then[/i:53e45613c2] e adicionar um [i:53e45613c2]ShowMessage[/i:53e45613c2] ou um [i:53e45613c2]Application.MessageBox[/i:53e45613c2]. :)
Espero ter ajudado! [img:53e45613c2]http://delphiforum.icft.com.br/forum/images/smiles/icon_smile.gif[/img:53e45613c2]
if not (Key in [´0´..´9´, 8, 13]) then Key := 0;
Com isso, você está dizendo que, ao digitar qualquer caractere, ele só ira aceitar a inserção se ele estiver entre 0 e 9, ou se ele for um backspace (8) para apagar, ou se ele for um enter (13), usado às vezes para passar de um componente para o outro. [img:53e45613c2]http://delphiforum.icft.com.br/forum/images/smiles/icon_smile.gif[/img:53e45613c2] Se a sua intenção é também avisar o usuário do problema, é só colocar um [i:53e45613c2]begin / end[/i:53e45613c2] depois do [i:53e45613c2]then[/i:53e45613c2] e adicionar um [i:53e45613c2]ShowMessage[/i:53e45613c2] ou um [i:53e45613c2]Application.MessageBox[/i:53e45613c2]. :)
Espero ter ajudado! [img:53e45613c2]http://delphiforum.icft.com.br/forum/images/smiles/icon_smile.gif[/img:53e45613c2]
Responder
Clique aqui para fazer login e interagir na Comunidade :)