delphi - 是否可以在 TDateEdit Firemonkey 控件上指定最短日期？

Question

例如

MyDateEdit.MinDate := DateOf(Now);

我正在使用 Delphi XE7 Update 1，帮助文件似乎没有提及任何属性或方法来执行此操作

Answer 1

据我所知，没有任何属性，但您可以使用 MyDateEdit 控件的 OnChange 事件强制执行此操作。

procedure TForm1.MyDateEditChange(Sender: TObject);
begin
  with Sender as TDateEdit do
  begin
    if Date < Now then
      Date := Now;
    end;
  end;

根据@SilverWarior 的以下评论进行澄清:这将不允许您随时存在最短日期之前的任何日期。如果您希望用户通过键盘输入日期(并且在输入过程中日期可能会低于您的最小值)，那么最好使用 OnExit 事件而不是 OnChange 事件。