寫程式常常碰到要處理日期區間的狀況
一般都會使用兩個 TDateTimePicker 元件做開始日期與結束日期的輸入
不過沒有做額外處理的話可能使用者會輸入成結束日期小於開始日期的不合理狀況
可以利用 TDateTimePicker.MinDate 屬性來解決

1
2
3
4
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
    DateTimePicker2.MinDate := DateTimePicker1.Date;
end;

這樣當 DateTimePicker1 有改變時會自動影響 DateTimePicker2 的日期
也間接限制了 DateTimePicker2 可以設定的最小日期