diff --git a/lcl/interfaces/win32/win32wscontrols.pp b/lcl/interfaces/win32/win32wscontrols.pp
index 3235c3b0e4..556b8c2f5a 100644
--- a/lcl/interfaces/win32/win32wscontrols.pp
+++ b/lcl/interfaces/win32/win32wscontrols.pp
@@ -441,6 +441,8 @@ class procedure TWin32WSWinControl.SetCursor(const AWinControl: TWinControl;
 begin
   // in win32 controls have no cursor property. they can change their cursor
   // by listening WM_SETCURSOR and adjusting global cursor
+  if csDesigning in AWinControl.ComponentState then
+    Windows.SetCursor(ACursor);
 end;
 
 class procedure TWin32WSWinControl.ConstraintsChange(const AWinControl: TWinControl);