diff --git a/lcl/interfaces/win32/win32wscalendar.pp b/lcl/interfaces/win32/win32wscalendar.pp
index ba99269417..df831a912b 100644
--- a/lcl/interfaces/win32/win32wscalendar.pp
+++ b/lcl/interfaces/win32/win32wscalendar.pp
@@ -150,7 +150,8 @@ begin
   case HitPart of
     MCHT_CALENDARDATE,
     MCHT_CALENDARDATENEXT,
-    MCHT_CALENDARDATEPREV: Result := cpDate;
+    MCHT_CALENDARDATEPREV,
+    MCHT_TODAYLINK: Result := cpDate;
     MCHT_CALENDARWEEKNUM : Result := cpWeekNumber;
     MCHT_TITLEBK: Result := cpTitle;
     MCHT_TITLEMONTH: Result := cpTitleMonth;