Campo edit aceitar somente letras
Olá! Gostaria de saber como faço para um campo edit aceitar somente letras, recusando números, acentos e outros caracteres.
Obrigado.
Obrigado.
Bclr
Curtidas 0
Melhor post
Bclr
21/10/2003
Consegui resolver.
Para quem quiser saber:
if not (Key in[´A´..´Z´,#8]) and not (Key in[´a´..´z´,8]) then
Key := 0;
Para quem quiser saber:
if not (Key in[´A´..´Z´,#8]) and not (Key in[´a´..´z´,8]) then
Key := 0;
GOSTEI 1
Mais Respostas
Fernando Lempê
21/10/2003
voce precisa saber quais sao as teclas que nao deverao ser inseridas pelo codigo.
exemplo:
o codigo interno da tecla enter é #13
ficaria assim para o edit nao aceitá-la:
no evento onkeypress do edit vc colocaria
if ( key=13 ) then
key=0;
vc tb pode usar o editmask nele é possivel configurar filtros de teclas
exemplo:
o codigo interno da tecla enter é #13
ficaria assim para o edit nao aceitá-la:
no evento onkeypress do edit vc colocaria
if ( key=13 ) then
key=0;
vc tb pode usar o editmask nele é possivel configurar filtros de teclas
GOSTEI 0
Bclr
21/10/2003
Gostaria de saber se existe alguma maneira mais prática de bloquear isto, da mesma maneira para se aceitar somente números, que é a seguinte:
if not (Key in[´0´..´9´,#8]) then
Key := 0;
Obrigado.
if not (Key in[´0´..´9´,#8]) then
Key := 0;
Obrigado.
GOSTEI 0
Bclr
21/10/2003
Alguém tem alguma idéia?
GOSTEI 0
Bruno Betioli
21/10/2003
segue abaixo o código alterado para suportar também a tecla de espaço (#32)
Lembrando que o #8 é referente ao backspace
procedure.Tfform.EditNomeKeyPress(Sender: TObject; var Key: Char); begin if not (Key in['A'..'Z',#8,#32]) and not (Key in['a'..'z',#8,#32]) then Key := #0; end;
Lembrando que o #8 é referente ao backspace
GOSTEI 0
Douglas
21/10/2003
Consegui resolver.
Para quem quiser saber:
if not (Key in[´A´..´Z´,#8]) and not (Key in[´a´..´z´,8]) then
Key := 0;
Para quem quiser saber:
if not (Key in[´A´..´Z´,#8]) and not (Key in[´a´..´z´,8]) then
Key := 0;
Muito boa a dica Bclr.
GOSTEI 0