求一日期控件！

Question

MonthCalendarOnExit事件中加：  MonthCalendar.Visible:=False;

Answer 1

MonthCalendarOnExit事件中加：  MonthCalendar.Visible:=False;

Answer 2

MonthCalendarOnExit事件中加：  MonthCalendar.Visible:=False;

Answer 3

在monthcalendar的onexit里
monthcalendar.visible:=false;

Answer 4

在MonthCalendar1Click中加入下面的代码：procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
     edit1.text :=datetostr(monthcalendar1.Date);
     edit1.setfocus;
     monthcalendar1.Visible:=false;
end;如果你的是edit1而是label的话，就把焦点设在其他的可获取焦点的控件上如edit或button上就行了。如：
procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
     label1.caption:=datetostr(monthcalendar1.Date);
     button1.setfocus;
     monthcalendar1.Visible:=false;
end;