diff --git a/lcl/controls.pp b/lcl/controls.pp
index 98b024f40f..2f9f0dc594 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -345,7 +345,7 @@ type
     function GetDragCursor(Accepted: Boolean; X, Y: Integer): TCursor; virtual;
   public
     constructor Create(AControl: TControl); virtual;
-    constructor AutoCreate(AControl: TControl); virtual;
+    constructor AutoCreate(AControl: TControl);
 
     procedure HideDragImage; virtual;
     procedure ShowDragImage; virtual;
diff --git a/lcl/include/dragobject.inc b/lcl/include/dragobject.inc
index 43d1cc0e25..db32de8f79 100644
--- a/lcl/include/dragobject.inc
+++ b/lcl/include/dragobject.inc
@@ -66,7 +66,8 @@ end;
 
 constructor TDragObjectEx.Create(AControl: TControl);
 begin
-  inherited AutoCreate(AControl);
+  inherited Create(AControl);
+  FAutoCreated := True;
 end;
 
 { TDragControlObject }
@@ -88,7 +89,8 @@ end;
 
 constructor TDragControlObjectEx.Create(AControl: TControl);
 begin
-  inherited AutoCreate(AControl);
+  inherited Create(AControl);
+  FAutoCreated := True;
 end;
 
 { TDragDockObject }
@@ -114,7 +116,8 @@ end;
 
 constructor TDragDockObjectEx.Create(AControl: TControl);
 begin
-  inherited AutoCreate(AControl);
+  inherited Create(AControl);
+  FAutoCreated := True;
 end;
 
 // included by controls.pp