tenho uma função que uso para validar numeros
Procedure ValidaKey (Const Sender :TObject; var Key :Char; Tipo :Integer);
// Valida Key em Edits
Begin
if not (Key in ['0'..'9', '.', ',', '+', '-', #8, #13]) then Key := #0;
if Key in [',','.'] then
If (Tipo = 1) OR (Tipo = 3)
-br] Impedir Caracteres Indesejados
OnKeyPress
if not (Key in ['0'..'9', #8]) then Key := #0;
Cleiton escreveu:
Olá pessoal...
Como fazer para impedir que usuário digite números em um campo que
deveria aceitar apenas letras e como impedir que o usuário digite
letras em um campo que deveria
Olá pessoal...
Como fazer para impedir que usuário digite números em um campo que deveria
aceitar apenas letras e como impedir que o usuário digite letras em um campo
que deveria aceitar apenas números?
abraços
Cleiton
--
Esta mensagem foi verificada pelo sistema de antivírus e
acredita-se
OnKeyPress
if not (Key in ['0'..'9', #8]) then Key := #0;
Cleiton escreveu:
Olá pessoal...
Como fazer para impedir que usuário digite números em um campo que
deveria aceitar apenas letras e como impedir que o usuário digite
letras em um campo que deveria aceitar apenas números?
abraços
4 matches
Mail list logo