Fórum EditMask em tempo de execução #221899
24/03/2004
0
Preciso criar a máscara de CPF ou CNPJ num DBEdit e estou usando a rotina abaixo:
procedure TFrm_Cliente.DBEdt_CICClieChange(Sender: TObject);
begin
if DBCbox_Tipo.text = ´F´ then
TB_ClienteCIC_Clie.EditMask:= ´000000000\-99;0;_´
else
TB_ClienteCIC_Clie.EditMask:= ´00000000\/0000-99;0;_´
end;
Essa rotina cria o formato automaticamente, porém não permite a escrita no DBEdit, como seria a rotina correta?
procedure TFrm_Cliente.DBEdt_CICClieChange(Sender: TObject);
begin
if DBCbox_Tipo.text = ´F´ then
TB_ClienteCIC_Clie.EditMask:= ´000000000\-99;0;_´
else
TB_ClienteCIC_Clie.EditMask:= ´00000000\/0000-99;0;_´
end;
Essa rotina cria o formato automaticamente, porém não permite a escrita no DBEdit, como seria a rotina correta?
Ivanlago
Curtir tópico
+ 0
Responder
Posts
24/03/2004
Lucas Silva
Tenta estas máscaras
if DBCbox_Tipo.text = ´F´ then TB_ClienteCIC_Clie.EditMask:= ´999999999-99;0;_´ else TB_ClienteCIC_Clie.EditMask:= ´99.999.999/9999-99;0;_´
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)