限制 TDateTimePicker 不可小於某日期

處理日期區間時，使用兩個 TDateTimePicker 元件做開始日期與結束日期的輸入，若未做額外處理則使用者可能會輸入成「開始日期大於結束日期」的不合理狀況而造成資料錯誤。



[Solution] 可利用 TDateTimePicker.MinDate 屬性來解決

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

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