如何在monthcalonder显示多个月

Question

希望在monthcalonder上当改变它的大小时可增加或减少显示的月数.
请问如何编写?第二个问题:选择monthcalonder的日期,在label上显示,是用哪个事件?用了monthcalonder的onclick事件能显示一次日期,再点击就不能显示了.谢谢

Answer 1

1、MonthCalendar1.Height := MonthCalendar1.Height * 2;
2、
procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
  Label1.Caption := DateToStr(TMonthCalendar(Sender).Date);
end;