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