各位前輩：
想請教一個自己遇到的怪問題，我使用DateTimePicker來作日期的輸入，因為是起訖條件，
需要輸入兩個日期，且結束日期不能小於開始日期，但是我在結束日期上得Change事件上
作如下的檢查，只要結束日期小於開始日期，我就將結束日期設定為跟開始日期一樣，
但警告訊息會出現，但是結束日期在表單上就是沒有反應，真不知道我哪邊錯誤！

想請各位幫忙看一下！感謝！
<textarea class="delphi" rows="10" cols="60" name="code"> procedure TFrm_00_BaseFilter.DateTimePicker_EndChange(Sender: TObject); begin if (DateTimePicker_End.DateTime < self.DateTimePicker_Begin.DateTime) then begin application.MessageBox('結束日期不可以小於開始日期！', '警告', MB_OK MB_ICONWARNING); // Self.DateTimePicker_End.Date := StrToDate('2090/12/31'); Self.DateTimePicker_End.Date := Self.DateTimePicker_Begin.Date ; Self.DateTimePicker_End.Refresh; end; end; </textarea>

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

加入紅色的部份試試: 

procedure TFrm_00_BaseFilter.DateTimePicker_EndChange(Sender: TObject);
begin
if (Trunc(DateTimePicker_End.DateTime) < Trunc(self.DateTimePicker_Begin.DateTime)) then
begin
application.MessageBox('結束日期不可以小於開始日期！', '警告', MB_OK MB_ICONWARNING);
// Self.DateTimePicker_End.Date := StrToDate('2090/12/31');
Self.DateTimePicker_End.Date := Self.DateTimePicker_Begin.Date ;
Self.DateTimePicker_End.Refresh;
end;
end;

前輩：
他有執行到application.MessageBox('結束日期不可以小於開始日期！', '警告', MB_OK MB_ICONWARNING);

我沒反應的意思是：他並無法確實執行Self.DateTimePicker_End.Date := Self.DateTimePicker_Begin.Date這個敘述！

不知道是否我下在Change事件中！

===================引 用 文 章===================
加入紅色的部份試試:

procedure TFrm_00_BaseFilter.DateTimePicker_EndChange(Sender: TObject);
begin
if (Trunc(DateTimePicker_End.DateTime) < Trunc(self.DateTimePicker_Begin.DateTime)) then
begin
application.MessageBox('結束日期不可以小於開始日期！', '警告', MB_OK MB_ICONWARNING);
// Self.DateTimePicker_End.Date := StrToDate('2090/12/31');
Self.DateTimePicker_End.Date := Self.DateTimePicker_Begin.Date;
Self.DateTimePicker_End.Refresh;
end;
end;

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

寫在 OnChange 不就改一下就會觸發一次？

你可以再用 ShowMessage 在該行之後測試結束日期的 TDateTimePicker.Date 的值是否有更改
另外, 為什麼要加 TDateTimePicker.Refresh？