LeandroSk8

Olá amigo Rog.Lucas, Consegui resolver assim: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in [#8]) then begin if not (Key in ['0'..'9']) then Key := #0; if (Length(Edit1.Text) = 1) then begin if Edit1.Text[1] = '(' then Edit1.Text := '' else begin Edit1.Text := '('+Edit1.text; Edit1.SelStart := Length(Edit1.text); end; end; if Length(Edit1.Text) = 3 then begin Edit1.Text := Edit1.text+') '; Edit1.SelStart := Length(Edit1.text); end; if Length(Edit1.Text) = 9 then begin Edit1.text := Edit1.text+'-'; Edit1.SelStart := Length(Edit1.Text); end; end; end; Se puder dar uma melhorada te agradeço desde já. valeu.

Muito Obrigado Mog.Lucas, valeu mesmo.

Ola I.Rutkoski, acho q você ja deve ter visto em alguns sites campos de digitacao q coloca os caracteres automaticamente ao digitar. o q eu gostaria é que ao digitar "1" ficasse assim "(1" e nao assim "(1_) ____-____" , ao digitar "11" ficasse assim "(11" e nao assim "(11) ____-____", ao digitar "111" ficasse assim "(11) 1" e nao assim "(11) 1___-____" e assim por diante. Agradeço qualquer ajuda.

Obrigado Paula_Moura Mas o que eu preciso realmente é que ao digitar fosse aparecendo pontos, traços ou virgulas. Por exemplo : Telefone 1111111111 ficasse assim (11) 1111-1111 Mas se eu digitar o primeiro número "1" ficasse assim (1 , o segundo numero "(11" ficasse assim (11) e assim por diante. Não sei se me expressei bem, mas agradeço qualquer ajuda.

Por favor, alguem teria uma funcao com mascara automatica, que ao digitar fosse aparecendo "pontos, virgula, barra". Agradeço.