Maskedit parcial

[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