Fórum Pulando de campo em campo tem jeito? #155607
25/04/2003
0
Estou num MaskEdit digitei o CPF, após digitar o último digito tem como ele me dizer se é verdadeiro ou falso sem ter que criar um botão?
Wagnerg
Curtir tópico
+ 0
Responder
Posts
25/04/2003
Dor_poa
claro...
depois que ele pressionar o enter vc. faz isso
// No evento KeyPress do MaskEdit, digite...
with Sender do
if Key = #13 then begin
testaCpf..
end;
depois que ele pressionar o enter vc. faz isso
// No evento KeyPress do MaskEdit, digite...
with Sender do
if Key = #13 then begin
testaCpf..
end;
Responder
Gostei + 0
25/04/2003
Hades
Outra opção, usar o evento OnChange:
procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
if lenght(MaskEdit1.Text) = 11) then // ou = 13 para CPF com pontos e hífen
TestaCPF(MaskEdit1.Text);
end;
Atenciosamente,
Hades
procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
if lenght(MaskEdit1.Text) = 11) then // ou = 13 para CPF com pontos e hífen
TestaCPF(MaskEdit1.Text);
end;
Atenciosamente,
Hades
Responder
Gostei + 0
25/04/2003
E_gama
Criei um componente para isso:
[URL=http://www.salesiano.com.br/egama/TXEdit_D7.zip]Baixe a versão para Delphi7 aqui[/URL]
[URL=http://www.salesiano.com.br/egama/TXEdit.zip]e a versão para Delphi5 aqui[/URL]
Tem dois componentes, um TEdit e TDBEdit. Não me lembro se já coloquei a função de checagem de CPF/CNPJ no TDBEdit, mas no TEdit sim.
Hoje a noite, vou dar uma olhada e acertar isso, se for o caso.
Para utilzar com CPF, configure a propriedade MaxLength para 14 e a propriedade TipoEntrada para teCPF.
Para utilzar com CNPJ, configure a propriedade MaxLength para 18 e a propriedade TipoEntrada para teCNPJ.
Para testar, faça o seguinte:
[URL=http://www.salesiano.com.br/egama/TXEdit_D7.zip]Baixe a versão para Delphi7 aqui[/URL]
[URL=http://www.salesiano.com.br/egama/TXEdit.zip]e a versão para Delphi5 aqui[/URL]
Tem dois componentes, um TEdit e TDBEdit. Não me lembro se já coloquei a função de checagem de CPF/CNPJ no TDBEdit, mas no TEdit sim.
Hoje a noite, vou dar uma olhada e acertar isso, se for o caso.
Para utilzar com CPF, configure a propriedade MaxLength para 14 e a propriedade TipoEntrada para teCPF.
Para utilzar com CNPJ, configure a propriedade MaxLength para 18 e a propriedade TipoEntrada para teCNPJ.
Para testar, faça o seguinte:
procedure TForm1.XEdit1Change(Sender: TObject);
begin
if Length(XEdit1.Text) = XEdit1.MaxLength then
if not XEdit1.IsValid then
ShowMessage(´DOCUMENTO INCORRETO !´);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)