Edit solo con fecha
 

Buenas a todos,

Necesito poder restringir la entrada de datos de un edit solamente a valores de fecha.

El edit en cuestión solamente puede aceptar fechas, por ejemplo 11/12/2006.

Gracias por la ayuda.

¿Por qué no usas un MaskEdit o un DateTimePicker?

// Saludos

lo mas sencillo es utilizar un maskedit con una mascara como !99/99/00;1;_.

Aquí tienes un ejemplo con Maskedit, hay que tener en cuenta que con este control se pueden introducir fechas incorrectas: 33/33/33 para el Maskedit sería correcta.

Código Delphi [-]
procedure TfrDlgFechas.mkFiniExit(Sender: TObject);
begin
try
 fini:=StrToDate(mkFini.text);
  except
    Application.MessageBox('Formato de fecha incorrecto','Atención',mb_Ok +mb_IconQuestion);
    mkFini.SetFocus;
  end;
end;

Un Saludo.