Código Delphi [-] procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject; Month: Cardinal; var MonthBoldInfo: Cardinal); begin if Month = 3 then //Si Es marzo MonthCalendar1.BoldDays([7, 21, 25], MonthBoldInfo); // El 7, 21 y 25 se mostrarán en negrita end;
procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject; Month: Cardinal; var MonthBoldInfo: Cardinal); begin if Month = 3 then //Si Es marzo MonthCalendar1.BoldDays([7, 21, 25], MonthBoldInfo); // El 7, 21 y 25 se mostrarán en negrita end;