各位老大：请帮助！！！！！

Question

如何得到monthcalendar控件的date属性？？？
我现在想在点击monthcalendar的时候将其date写入edit中，如何解决，请帮忙！一定加分

Answer 1

procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
  Edit1.Text:=DateToStr(MonthCalendar1.Date);
end;

Answer 2

procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
    edit1.text:= datetostr(MonthCalendar1.Date);
end;
不知道是不是符合你的要求。

Answer 3

可是，在写的时候MonthCalendar1根本就不允许调用date属性的啊！！！！

Answer 4

读：
edit1.text:= datetostr(MonthCalendar1.Date);
写：
MonthCalendar1.Date := strtoDate(edit1.Text);