Aceptar solo un formato en DBEdit

[ixMike]

Lo más cómodo sería instalarte un componente de alguna librería, como el TDBDateEdit que menciona rgstuamigo o algún TDBMaskEdit que pueda haber por ahí.

Otra cosa que puedes hacer es, en el evento OnExit del TDBEdit, comprobar la fecha y, si no tiene el formato adecuado, mostrar el mensaje de error y hacer que no pierda el foco.

Por ejemplo, se me ocurre esto (no sé si tendrá alguna carencia):

Código Delphi [-]
procedure TForm1.DBEdit1Exit(Sender: TObject);
var
  Fecha: TDateTime;
begin
  try
  Fecha:=StrToDate(DBEdit1.Text);
  except
  ShowMessage('El formato de fecha introducido no es válido');
  DBEdit1.SetFocus;
  end;
end;

Por otra parte, y como también ha dicho rgstuamigo, es muy raro que el programa se cierre por un error como ese. ¿El error que te sale es el típico de Delphi "This is not a valid Date format", o es algún error más "extraño"? Podrías decirnos qué error te sale, a ver si se puede solucionar lo de que se cierre el programa


Salu2