Alguem aki sabe como permitir o edit receber soh numeros?

03/12/2003

1

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:


Responder

Posts

03/12/2003

Deus

Facílimo. É só no evento OnKeyPress dele você usar o seguinte código:

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