[[José Luis Garcí]]

Empezado por ecfisa

Hola de nuevo.

Me había olvidado que el TEditMask permite caracteres literales... , así que podes hacerlo solamente con el componente MaskEdit:

Código Delphi [-]
uses DateUtils;

procedure TForm1.FormCreate(Sender: TObject);
var
  y : string;
begin
  y := YearOf(Now).ToString; // o el año que elijas ej.: '1975'
  y := '\'+y[1]+'\'+y[2]+'\'+y[3]+'\'+y[4];
  MaskEdit1.EditMask   := '!99/99/' + y;
end;

Salida:


Saludos

Como siempre esplendida solución, muchas gracias.
Esto es lo que hecho de menos de programar, pero realmente estoy muy enfadado con Embarcadero, ya que ya no puedo usar mi delphi 2010, por haber acabado con el número de veces que podía instalar mi versión de Delphi, lo que realmente me molesta es que nadie te avisa cuando compras la licencia, se supone que la puedes usar todas las veces que quieras, y hace ya unos años, estuve cambiando de equipo muy a menudo, con los que en cada uno lo instalaba, hasta que ya no me lo permitieron más.
Odio la piratería, pero a veces no te dejan otra opción, que o hacerte pirata o no seguir usando un sistema al que le has dedicado años de tu vida.

Como siempre, lamento la paliza y muchas gracias ecfisa