请看两个very奇怪的程序！！！！

Question

onclick事件没有办法响应MonthCalendar1.BoldDays([1,4],monthboldinfo);不能显示粗体

Answer 1

但是，我的程序一定要在TForm1.MonthCalendar1GetMonthInfo事件中响应，有办法吗？

Answer 2

这或许是bug,可以让别的控件先获得焦点，待取出数据后，如果需要，可以让它重新获得焦点（setfocus)。

Answer 3

如date为2001-8-14，刚开始的时候，m的值为8，当date为2001-9-14，m还是8，当date为2001-10-14，这时m为9，接着m就一直比当前日期少一，WHY？

Answer 4

第一个问题：MonthCalendar1.BoldDays方法，必须用TForm1.MonthCalendar1GetMonthInfo事件中
第二个问题：MonthCalendar1.OnBoldDays事件是在跳到下个月之前执行的

Answer 5

我说过了，是bug,取控件的日期时，让别的控件先Tobject.setfocus,待取出日期后，如果还需要的话，可以让该控件再setfocus.

Answer 6

修改如下：
procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
  Month: Cardinal; var MonthBoldInfo: Cardinal);
begin
其他控件的名字.setfocus;
decodedate(MonthCalendar1.date,y,m,d);
edit1.text:=inttostr(m);
MonthCalendar1.setfocus;
end;

Answer 7

现在form1上只有个button，能否说明怎么让“让别的控件先Tobject.setfocus,待取出日期后，如果还需要的话，可以让该控件再setfocus？”

Answer 8

如果button是Tbutton的名字时如此即可：
procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
  Month: Cardinal; var MonthBoldInfo: Cardinal);
begin
button.setfocus;
decodedate(MonthCalendar1.date,y,m,d);
edit1.text:=inttostr(m);
MonthCalendar1.setfocus;
end;

Answer 9

第二个问题：
    使用TForm1.MonthCalendar1GetMonthInfo事件总是会延迟一步，比如你指的月份顺序是：
1月、3月、8月......,而则显示为1月、1月、3月、8月。
你最好还是用其他方法，比如用一个Timer；如果非用不可就想办法让它再月份改变时激发两次或
发送消息.

Answer 10

但是，还是不好使啊？
如date为2001-8-14，刚开始的时候，m的值为8，当date为2001-9-14，m还是8，当date为2001-10-14，这时m为9，接着m就一直比当前日期少一，WHY？ 
年份的问题如何解决啊？

Answer 11

poleax()　，能否说明“date为2001-12-14，刚开始的时候，y的值为2001，当date为2002-1-14，y还是2001，当date为2002-2-14，这时y为2002.
年份延迟了，该怎么解决？？？？？？？？？
我一定 会加分的！！！！！

Answer 12

”比如用一个Timer；如果非用不可就想办法让它再月份改变时激发两次或发送消息“
应如何实现？？？？？

Answer 13

to weizhi_csdn(阿斋)　,你的办法不好使啊。

Answer 14

to trainbox(战友战友亲如兄弟)　:
能否说明“date为2001-12-14，刚开始的时候，y的值为2001，当date为2002-1-14，y还是2001，当date为2002-2-14，这时y为2002.
年份延迟了，该怎么解决？？？？？？？？？
我一定 会加分的！！！！！