impedir caracteres especiais

Delphi

26/04/2004

Como faço para impedir que o usuário digite caracteres especiais no componente [b:7313d01e1d]dbedit???[/b:7313d01e1d]


Companheiro favor postar os títulos das mensagens com letras minúsculas.
Seu título foi editado

Zoom


Metalleiro_delphiano

Metalleiro_delphiano

Curtidas 0

Melhor post

Fatrix

Fatrix

26/04/2004

Então, digite o seguinte código no evento onKeyPress:


If not( key in[´!´, ´@´, ´/´, ´$´, 8] ) then
   begin
       beep;
       key:=0;
       ShowMessage(´Digite Apenas Números´);
   end;


Espero ter ajudado. :lol:


GOSTEI 1

Mais Respostas

Fatrix

Fatrix

26/04/2004

ERREI!
Foi Mal, aonde está if not
escreva :

 if ( key in[´!´, ´@´, ´/´, ´$´, 8] ) then



GOSTEI 0
Otto

Otto

26/04/2004

ou pode fazer da seguinte forma:


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
Metalleiro_delphiano

Metalleiro_delphiano

26/04/2004

acho q vc naum entendeu ou naum expliquei direito minha duvida. o que eu quero é impedir o usuário digitar acentos, ´ç´, e pontos. blz??


GOSTEI 0
Otto

Otto

26/04/2004

acho q vc naum entendeu ou naum expliquei direito minha duvida. o que eu quero é impedir o usuário digitar acentos, ´ç´, e pontos. blz??



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
Esdras Carneiro

Esdras Carneiro

26/04/2004

Não acho o ONKeyPress<br />
Versão: Delphi 10.2 ...
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

26/04/2004

Bom dia!
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
POSTAR