Delphi 中 Date TimePicker 控件，如何限制用户输入的日期不能超过系统日期？

Question

如题，各位帮帮忙，谢谢啦

Answer 1

    DateTimePicker1.MaxDate:=now;

Answer 2

还可以在OnExit事件中进行判断啊.

Answer 3

在DateTimePicker的Exit事件中加入控制代码，内容如下，仅作参考
procedure TFom1.DateTimePicker1Exit(Sender: TObject);
begin
   if  DateTimePicker1.Date>Now then
    begin    Application.MessageBox('error','error'，MB_ICONERROR);//当选择日期大于当前日期时，显示错误提示，提示信息内容自己设置
    DateTimePicker1.SetFocus;//将焦点停在控件中，等待再次选择。
    end;