|
Si /2005 es fijo eso lo puedes añadir tú directamente, entonces lo que necesitas es un edit con ancho permitido 4, que solamente te permite introducir números, en el evento on exit, le añades ceros por la izquierda y listo.
[delphi]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#8,'0'..'9']) then key:=#0;
end;
[/Delpi]
Un Saludo.
|