Jump to content

Mascara no Edit Mobile


Edmar Frazao

Recommended Posts

  • 6 months later...

Boa tarde Pessoal, 

   veja se ajuda,

 
var
  FormatarTelefone: string;
 
  if (UniDBEditTelefoneRefComercial.Text <> '') then
  begin
    if Length(SomenteNumero(UniDBEditTelefoneRefComercial.Text)) = 10 then
    begin
      FormatarTelefone:= '(' + Copy(UniDBEditTelefoneRefComercial.Text, 1,2)
      + ')' + Copy(UniDBEditTelefoneRefComercial.Text, 3,4)
      +'-' + Copy(UniDBEditTelefoneRefComercial.Text, 7,4);
    end
    else
    begin
      if Length(SomenteNumero(UniDBEditTelefoneRefComercial.Text)) = 11 then
      begin
        FormatarTelefone:= '(' + Copy(UniDBEditTelefoneRefComercial.Text, 1,2)
        + ')' + Copy(UniDBEditTelefoneRefComercial.Text, 3,5)
        +'-' + Copy(UniDBEditTelefoneRefComercial.Text, 8,4);
      end
      else
      begin
        ShowMessage('Este Campo é para telefone Celular com "nono dígito" ou telefone fixo, Ex: 41988888888 ou 4133333333');
        UniDBEditTelefoneRefComercial.Clear;
        UniDBEditTelefoneRefComercial.SetFocus;
        Abort;
      end;
    end;
    UniDBEditTelefoneRefComercial.Text:= FormatarTelefone;
  end;
 
Att. Luciano Benito
Link to comment
Share on other sites

  • 8 months later...
No dia 19/07/2017 às 17h03, Edmar Frazao disse:

Ja achei componentes para rímel não unigui web.

 

 

mas e para rímel em edições Mobile.

 

Cep

Telefone

cpf

senha

 

como fazer?

 

Alias porque não unigui não tem edite com rímel nativo

 

obrigado

resolvedor satisfeito?

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...