Fórum Simular a digitação de traz para frente num maskedit #267114

procedure KeyPress(Sender: TObject; var Key: Char);
const FIXO: String = ´´;
begin
     //Não fazer nada com o Backspace, senão não deixa apagar
     if Key = #8 then Exit;

     //Só permitir numéricos
     if not (Key in [48..57]) then Key := 0;

     if Trim(msk.Text) = FIXO then
     begin
          { No primeiro caractere, colocar após o ´-´ }
          msk.Text := ´-´ + Key;
     end
     else
     begin
          { Nos outros, concatenar normalmente }
          msk.Text := Key + Trim(msk.Text);
     end;
     { Tecla já foi usada, portanto invalida-la }
     Key := #0;
     { Posiciona o cursor }
     msk.SelStart := Pos(Trim(msk.Text),msk.Text) -1;
end;

msk.Text := StringOfChar(´ ´, msk.MaxLength -1 - Length(Trim(msk.Text))) + Key + Trim(msk.Text);