Fórum impedir caracteres especiais #227984
26/04/2004
0
Companheiro favor postar os títulos das mensagens com letras minúsculas.
Seu título foi editado
Zoom
Metalleiro_delphiano
Curtir tópico
+ 0Post mais votado
26/04/2004
If not( key in[´!´, ´@´, ´/´, ´$´, 8] ) then begin beep; key:=0; ShowMessage(´Digite Apenas Números´); end;
Espero ter ajudado. :lol:
Fatrix
Gostei + 1
Mais Posts
26/04/2004
Fatrix
Foi Mal, aonde está if not
escreva :
if ( key in[´!´, ´@´, ´/´, ´$´, 8] ) then
Gostei + 0
26/04/2004
Otto
if not (key in[´0´..´9´, ´a´..´z´, ´A..´Z´, 8, 13]) then key := 0; // 8 - backspace // 13- enter
no evento onkeypress do componente...
Gostei + 0
26/04/2004
Metalleiro_delphiano
Gostei + 0
26/04/2004
Otto
faz isso que eu falei:
if not (key in[´0´..´9´, ´a´..´z´, ´A´..´Z´, 8, 13]) then key := 0; // 8 - backspace // 13- enter
Gostei + 0
29/08/2018
Esdras Carneiro
Versão: Delphi 10.2 ...
Gostei + 0
30/08/2018
Raimundo Pereira
Está usando o Delphi mesmo?
Qual componente está procurando o Keypress?
Se for um edit basta selecionar o mesmo ir até a aba eventos e procurar onkeypress?
Só uma dúvida,você já usou alguma versão anterior do delphi? Ou é a primeira vez que vai usar-lo?
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)