是否可以在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事件。