Pulando de campo em campo tem jeito?

Delphi

25/04/2003

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

Wagnerg

Curtidas 0

Respostas

Dor_poa

Dor_poa

25/04/2003

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;


GOSTEI 0
Hades

Hades

25/04/2003

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


GOSTEI 0
E_gama

E_gama

25/04/2003

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:
procedure TForm1.XEdit1Change(Sender: TObject);
begin
  if Length(XEdit1.Text) = XEdit1.MaxLength then
     if not XEdit1.IsValid then
        ShowMessage(´DOCUMENTO INCORRETO !´);
end;



GOSTEI 0
POSTAR