Fórum Ajuda sobre Maskedit #185934
02/10/2003
0
:? AJUDEM-ME, PRECISSO SABER COMO DEVO FAZER PARA UM ´MASKEDIT´ OU UM ´EDIT´ RECONHECER, SE É NUMERICO OU ALFABETICO QUANDO DIGITAMOS ALGO.
SE TEM ALGUMA PROPRIEDADE OU FUNÇÃO;[u:8c9560f430][/u:8c9560f430]
[i:8c9560f430]Título em maiúsculas editado. Procure digitar a mensagem em minúsculas. Leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689&sid=add834b4ed94967502cf2381c38e751a][u:8c9560f430]Regras de Conduta[/u:8c9560f430][/url]. (marcelo.c – Moderador)[/i:8c9560f430]
SE TEM ALGUMA PROPRIEDADE OU FUNÇÃO;[u:8c9560f430][/u:8c9560f430]
[i:8c9560f430]Título em maiúsculas editado. Procure digitar a mensagem em minúsculas. Leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689&sid=add834b4ed94967502cf2381c38e751a][u:8c9560f430]Regras de Conduta[/u:8c9560f430][/url]. (marcelo.c – Moderador)[/i:8c9560f430]
P_lima
Curtir tópico
+ 0
Responder
Posts
02/10/2003
Ljr
no evento OnKeyPress do TEdit coloque o seguinte codigo:
Isto verificará cada tecla precionada quando o foco estiver sobre o edit e retornará se é numérico, se é uma letra do alfabeto ou se é outras.
if key in [´0´..´9´] then
ShowMessage(´Numerico´) else
if key in [´A´..´Z´,´a´..´z´] then
ShowMessage(´Letras do alfabeto´)
else
ShowMessage(´Outras´);Isto verificará cada tecla precionada quando o foco estiver sobre o edit e retornará se é numérico, se é uma letra do alfabeto ou se é outras.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)