diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 4072bf3928..935d5f452e 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -5467,6 +5467,8 @@ begin
            Assigned(HostDockSite.DockManager) then
           HostDockSite.DockManager.MessageHandler(Self, Message);
       end;
+    CM_THEMECHANGED:
+      Broadcast(Message);
   end;
 
   inherited WndProc(Message);