diff --git a/lcl/interfaces/win32/win32wsforms.pp b/lcl/interfaces/win32/win32wsforms.pp
index a09408653d..6e6fcc0d68 100644
--- a/lcl/interfaces/win32/win32wsforms.pp
+++ b/lcl/interfaces/win32/win32wsforms.pp
@@ -396,7 +396,7 @@ begin
        ( not (csDesigning in lForm.ComponentState) and
         (lForm.ShowInTaskBar = stAlways)) then
       FlagsEx := FlagsEx or WS_EX_APPWINDOW;
-    if lForm.AlphaBlend then
+    if not (csDesigning in lForm.ComponentState) and lForm.AlphaBlend then
       FlagsEx := FlagsEx or WS_EX_LAYERED;
   end;
   SetStdBiDiModeParams(AWinControl, Params);