Manejo de un maskedit

[Vlady]

Como puedo crear un maskedit que me maneje una mascara que cuando un usuaria digite por ejemplo 1200 escriba 1.200 si digita 10005248 escriba
10.005.248 si di 1114578467 escriba 1.114.578.467 les agradeceria me colobaren con esto.

Gracias

[Vlady]

alguien conoce la respuesta

[ecfisa]

Hola Vlady.

No se me ocurre manera de hacerlo con un TMaskEdit, pero podrías hacerlo con
un TEdit.

Algo como:

procedure TForm1.Edit1Exit(Sender: TObject);
var
  i: byte;
  c: byte;
  s: string;
begin
  c:= 0;
  s:= '';
  for i:= Length(Edit1.Text) downto 1 do
  begin
    s:= s + Edit1.Text[i];
    inc(c);
    if (c = 3)and(i > 1) then
    begin
      s:= s + '.';
      c:= 0;
    end;
  end;
  Edit1.Text:= '';
  for i:= Length(s) downto 1 do
       Edit1.Text:= Edit1.Text + s[i];
end;

Saludos.