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

发布时间：2020-12-15 09:23:07 所属栏目：大数据来源：网络整理

导读：例如 MyDateEdit.MinDate := DateOf(Now); 我正在使用Delphi XE7 Update 1,帮助文件似乎没有提到任何属性或方法来执行此操作解决方法没有我知道的属性,但您可以使用MyDateEdit控件的OnChange事件强制执行此操作. procedure TForm1.MyDateEditChange(Sender

例如

MyDateEdit.MinDate := DateOf(Now);

我正在使用Delphi XE7 Update 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事件.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!