Num novo projeto coloque um TCNPJCPFEdit e um TButton, no evento OnClick do TButton entre com o código abaixo, compile e teste:
01 |
procedure TForm1.Button1Click(Sender: TObject); |
02 |
begin |
03 |
case CNPJCPFEdit1.TipoDoc of |
04 |
tdCNPJ:CNPJCPFEdit1.TipoDoc := tdCPF; |
05 |
tdCPf:CNPJCPFEdit1.TipoDoc := tdCNPJ; |
06 |
end; |
07 |
end; |
