如何使用Delphi中的TMonthCalendar日期控件？

Question

我想在一个Edit中点击左键时日期控件显示，当鼠标移开时在TMonthCalendar中选择的值显示在Edit中，同时TMonthCalendar为不可见？特急！谢谢各位大侠了，小弟刚学，没办法

Answer 1

先把TMonthCalendar.visible:=false;
edit1.text:=datetostr(onthCalendar1.date);
就可以了.

Answer 2

有点问题，不太好用edit 的onclick事件中写上TMonthCalendar.visible:=true;
mousemove
TMonthCalendar.visible:=false;
edit1.text:=datetostr(onthCalendar1.date);

Answer 3

这样不行吗，把calandar退出写在他的onclick中不行吗

Answer 4

procedure TForm1.Edit1DblClick(Sender: TObject);
begin
  MonthCalendar1.Visible := True;
end;procedure TForm1.MonthCalendar1DblClick(Sender: TObject);
begin
  MonthCalendar1.Visible := False;
  Edit1.Text := DateToStr(MonthCalendar1.Date);
end;