避免Delphi的TDateTimePicker的onChange事件會執行二次

某次在Debug程式時，發現每次選取日期時，都會出現N次一模一樣的訊息提示，TRACE 程式發現原來TDateTimePicker的onChange事件會被觸發兩次...

[Solution]

procedure TForm1.DateTimePicker1Change(Sender: TObject); 
begin 
if (DateTimePicker1.DroppedDown) then  
exit; 
DateTimePicker1CloseUp(sender); 
end; 

procedure TForm1.DateTimePicker1CloseUp(Sender: TObject); 
begin 
//僅執行一次的程式碼
//DO日期檢核...(例如: 日期區間判斷,開始日期不可大於結束日期)  
end;