diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index f59e3dc6dc..70c8856e3d 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -1740,7 +1740,7 @@ procedure TCustomForm.UpdateActions;
     i: Integer;
     CurControl: TControl;
   begin
-    if not Container.Showing then exit;
+    if not Container.Showing or (csDesigning in Container.ComponentState) then exit;
     //DebugLn(['RecursiveInitiate ',DbgSName(Container)]);
     for i := 0 to Container.ControlCount - 1 do begin
       CurControl := Container.Controls[i];