啊 找到了个
先声明个全局变量: boldday:integer;
procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
day:Tdate;
begin
day:=incday(DateTimePicker1.Date,100-5);
MonthCalendar1.MultiSelect:=false;
MonthCalendar1.Date:=day;
MonthCalendar1.MultiSelect:=true;
MonthCalendar1.EndDate:=incday(day+10);
[red]
boldday:=strtoint(formatdatetime('d',incday(day+5)));[/red]
end;
然后在OnGetMonthInfo事件里写:
procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
Month: Cardinal;
var MonthBoldInfo: Cardinal);
begin
MonthCalendar1.BoldDays([boldday],MonthBoldInfo);
end;
这样中间那天的字体就变粗了,不过效果不是很明显。。。。。。