关于日期录入的问题

Question

我将tedit控件和edatetimepicker控件重合到一起，用时间控件代替文本框输入时间
在相应的控件事件中写入如下代码
procedure TFqbd.Edit1Enter(Sender: TObject);
begin
  datetimepicker1.Visible:=true;
  edit1.Visible:=false;
  datetimepicker1.SetFocus;
end;procedure TFqbd.DateTimePicker1Exit(Sender: TObject);
begin
  edit1.Text:=datetostr(datetimepicker1.Date);
  datetimepicker1.Visible:=false;
  edit1.Visible:=true;
end;procedure TFqbd.DateTimePicker1CloseUp(Sender: TObject);
begin
  edit1.Text:=datetostr(datetimepicker1.Date);
  datetimepicker1.Visible:=false;
  edit1.Visible:=true;
end;
问题是运行时当焦点在文本框中时，文本框隐藏，时间控件出现，如果我不做任何操作，我点窗体上的空地方，时间控件不消失，onexit事件不起作用，这是怎么回事？有什么解决办法吗？没分了，不好意思大家帮帮忙

Answer 1

不如你再把窗体的单击事件连到TFqbd.DateTimePicker1Exit)

Answer 2

有道理，虽然我觉得应该在datetimepicker控件的onexit事件中实现，不过这样确实能达到目的，可惜我没分了不能给你，谢谢了