Fórum Mascara de Telefone #189081

utilize o componente MaskEdit e a mascara (propriedade EditMask)
´(00)0009-0000´

Se vc estiver pensando em formatar após ele sair do componente, faça da seguinte maneira:

Crie as funções:

function FormataFone7(const Fone7: string): string;
var
I: integer;
begin
Result := ´´;
for I :=1 to length(Fone7) do
if Fone7[I] in [´0´..´9´] then
Result := Result + Fone7[I];
Result := ´(´+
Copy(Result, 1,2) + ´)´ +
Copy(Result, 3, 3) + ´-´+
Copy(Result,6,4);
end;

function FormataFone8(const Fone8: string): string;
var
I: integer;
begin
Result := ´´;
for I :=1 to length(Fone8) do
if Fone8[I] in [´0´..´9´] then
Result := Result + Fone8[I];
Result := ´(´+
Copy(Result, 1, 2) + ´)´ +
Copy(Result, 3, 4) + ´-´+
Copy(Result,7,4);
end;

valide o componente para receber apenas números
no evento onkeypress do componente digite:

if not (Key in [´0´..´9´,#8]) then
begin
key := #0;
MessageBeep($FFFF);
end;



depois crie condições no onexit no componente

If edit1.text <> ´´ then
begin
If (Length(Edit1.Text) <> 9) and (Length(edit1.Text) <> 10 )then
begin
MessageBox(´Número de telefone inválido.´);
edit1.setfocus;
edit1.Text := ´´ ;
end
else
If Length (edit1.Text) = 10 then
edit1.Text := FormataFone8(Edit1.Text)
else
Edit1.Text := FormataFone7(Edit1.Text);
end;

Espero ter colaborado.......

eu uso esta máscara:

!\(99\)_#000-0000;0;_