diff --git a/lcl/shellctrls.pas b/lcl/shellctrls.pas
index 6c57697dbd..c29ba9498b 100644
--- a/lcl/shellctrls.pas
+++ b/lcl/shellctrls.pas
@@ -529,7 +529,7 @@ var
 begin
   if FFileSortType=AValue then exit;
   FFileSortType:=AValue;
-  if (csLoading in ComponentState) then Exit;
+  if (([csLoading,csDesigning] * ComponentState) <> []) then Exit;
   CurrPath := GetPath;
   try
     BeginUpdate;