diff --git a/lcl/forms.pp b/lcl/forms.pp
index 5e127bb604..5f30ddc167 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -500,6 +500,7 @@ type
     function HandleCreateException: Boolean; virtual;
     function HandleDestroyException: Boolean; virtual;
     function HandleShowHideException: Boolean; virtual;
+    procedure InitializeWnd; override;
     procedure Loaded; override;
     procedure ChildHandlesCreated; override;
     procedure Notification(AComponent: TComponent; Operation : TOperation);override;
diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index 0c3cb102ad..ebf6f6a35b 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -874,6 +874,18 @@ begin
     Application.HandleException(Self);
 end;
 
+procedure TCustomForm.InitializeWnd;
+begin
+  if not (csDesigning in ComponentState) then
+  begin
+    // set alpha value
+    TWSCustomFormClass(WidgetSetClass).SetAlphaBlend(Self, AlphaBlend, AlphaBlendValue);
+    // set allow drop files
+    TWSCustomFormClass(WidgetSetClass).SetAllowDropFiles(Self, FAllowDropFiles);
+  end;
+  inherited InitializeWnd;
+end;
+
 {------------------------------------------------------------------------------
   Method: TCustomForm.PaintWindow
   Params:   none
@@ -2105,9 +2117,7 @@ begin
       LCLIntf.SetFocus(FActiveControl.Handle);
     end;
   end;
-  
-  // set allow drop files
-  TWSCustomFormClass(WidgetSetClass).SetAllowDropFiles(Self, FAllowDropFiles);
+
   // update icon
   Perform(CM_ICONCHANGED, 0, 0);
   //DebugLn('TCustomForm.CreateWnd END ',ClassName);