弹出两次对话框

Question

有一个时间控件dtpicker1,当改变的时间小于某一时间后,则弹出提示对话框.
代码如下:procedure myform.dtpicker1.onChange(sender:object)
begin
 if dtpicker1.date<otherTime then
 begin
   msgNotice(1,'当前时间不能小于otherTime','');
   exit;
 end;
end;
结果是弹出两次对话框.
别人告诉我说设一个全局boolean变量,在程序中做判断就行了.
可是我不想要那么多的全局变量,该如何更改啊?

Answer 1

dtpicker1的时间变了2次？不建议在OnChange事件中写

Answer 2

应该这样写：
if dtpicker1.Focused and (dtpicker1.date <otherTime) then
begin
  msgNotice(1,'当前时间不能小于otherTime','');  
end;