Acentos No Edit
Tenho uma Tela de Cadastro de Clientes, quero saber como posso bloquear para que o usuario digite uma palavra com acento. Exemplo tenho um TEdit chamado nome, no momento em que a Pessoa digitar JOSÉ, ele diga, preencher dados sem acentos?
Como posso fazer isso?
Como posso fazer isso?
Wgm8
Curtidas 0
Respostas
Okama
05/05/2003
Utilize o evento onChange do Edit e defina quais letras vc não permitirá:
Ex.
if Copy(Edit1.Text,length(Edit1.Text)-1,1) = ´é´ then
Showmessage(´Não utilize Acentos´);
Ex.
if Copy(Edit1.Text,length(Edit1.Text)-1,1) = ´é´ then
Showmessage(´Não utilize Acentos´);
GOSTEI 0
Marcelo
05/05/2003
:D
GOSTEI 0
Wgm8
05/05/2003
Se eu digitar só o É funciona, mais se eu digitar JOSÉ ele deixa passar!!!
GOSTEI 0
Marconi
05/05/2003
Tenho uma Tela de Cadastro de Clientes, quero saber como posso bloquear para que o usuario digite uma palavra com acento. Exemplo tenho um TEdit chamado nome, no momento em que a Pessoa digitar JOSÉ, ele diga, preencher dados sem acentos?
Como posso fazer isso?
Use o evento onKeyPress testando a tecla Key
if key=´é´ then key = ´e´;
if key=´ê´ then key = ´e´;
... e assim por diante..
Neste caso voce nao exibe nenhuma mensagem e corrige a entrada que não deveria acontecer.
Marconi
GOSTEI 0