[Stalker2-42]

NumLock.

Спасибо.

Вроде как работает.

Код:

var
  DayM :  array [1..12] of MONTHDAYSTATE;
......
 
procedure BoldDays(var ds: MONTHDAYSTATE; iDay: array of LongWord);
var
  I : Integer;
begin
  for I := Low(iDay) to High(iDay) do
    if (iDay[i] > 0) and (iDay[i] < 32) then
      ds := ds or ($00000001 shl (iDay[i] - 1));
end;
 
var
  cMonths  : LongWord;
 
WM_NOTIFY:
      begin
        if PNMHdr(LParam).hwndFrom = Calendar then
 
            begin
              case PNMHdr(LParam).code of
                MCN_GETDAYSTATE:
                  begin
                    cMonths := pnmdaystate(LParam).cDayState;
                    for I := 1 to cMonths - 1 do
                      BoldDays(DayM[i], [12 , 15, 16, 17, 18,29, 30, 31]);
                    pnmdaystate(LParam).prgDayState := @daym;
                  end;
              end;
            end;
 
      end;

Караул. В delphi 2010 нет большей части сообщений (mcm_) описанных в MSDN.