Mira este ejemplo:
MC es el MonthCalendar.
Tienes que utilizar el evento GetMonthInfo, que se dispara cada vez que se activa un mes.
procedure TForm1.mcGetMonthInfo(Sender: TObject; Month: Cardinal;
var MonthBoldInfo: Cardinal);
begin
mc.BoldDays([1,8,15,22],MonthBoldInfo);
end;
Un Saludo.
|