Acentos No Edit

Question

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?

Okama · Answer

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�);...

Marcelo · Answer

:D...

Wgm8 · Answer

Se eu digitar s� o � funciona, mais se eu digitar JOS� ele deixa passar!!!...

Marconi · Answer

[quote:b0c987c867=�wgm8�]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?[/quote:b0c987c867]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...

F�rum Acentos No Edit #157876