例如
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事件.
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。