marcosbaixista
Profissional
Registrado: Quinta-Feira, 18 de Março de 2010
Mensagens: 594
Localização: Maringá/PR
|
 Enviada: Dom Out 13, 2013 5:22 pm Assunto: Campo Fone com 9 ou 8 dígitos. |
 |
|
Olá pessoal.
Estou tentando implementar no sistema de cadastro mascara no campo telefone para se adaptar com os novos números de são paulo.
Utilizei edit mask do campo a seguinte máscara: '(99)99999-9999;0_;', não gostaria de salvar a máscara no banco.
No campo telefone, gostaria de colocar um espaço em branco caso o usuário digite um número com 8 dígitos, no caso ficaria assim: (21) 8564-4578 e se usar com 9 dígitos (21)98564-4578.
Alguém pode me dar uma idéia de como fazer isso? |
|
luciocampetti
Aprendiz
Registrado: Domingo, 25 de Agosto de 2013
Mensagens: 128
Localização: Passo Fundo - RS
|
| Enviada: Dom Out 13, 2013 9:07 pm Assunto: Re: Campo Fone com 9 ou 8 dígitos. |
|
|
Boa noite amigo, eu fiz assim, não sei se é a maneira mais correta, mas esta funcionando.
Via código, no evento create do form coloquei assim a mascara, dai quando o usuário clica no campo aparece a mascara
| Código: |
DBdtTelRes.Field.EditMask:= '(99)99999-9999;1;_'; //Mascara Telefone
DBdtTelCel.Field.EditMask:= '(99)99999-9999;1;_'; //Mascara Telefone
DBdtTelCom.Field.EditMask:= '(99)99999-9999;1;_'; //Mascara Telefone
|
No evento onkeypress de cada dbedit coloquei assim:
Para aceitar somente números e os caracteres
ficou assim,
| Código: |
procedure TFrmCadastro.DBdtTelResKeyPress(Sender: TObject; var Key: Char);
begin
If not(key in['0'..'9',#8,'-','(',')']) then
key:=#0;
//Campo Telefone Residencial Somente Números, - e Parenteses.
end;
procedure TFrmCadastro.DBdtTelCelKeyPress(Sender: TObject; var Key: Char);
begin
If not(key in['0'..'9',#8,'-','(',')']) then
key:=#0;
//Campo Telefone Celular Somente Números, - e Parenteses.
end;
procedure TFrmCadastro.DBdtTelComKeyPress(Sender: TObject; var Key: Char);
begin
If not(key in['0'..'9',#8,'-','(',')']) then
key:=#0;
//Campo Telefone Comercial Somente Números, - e Parenteses.
end;
|
Espero ter ajudado. Boa sorte. |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
