diff --git a/lcl/include/customlistbox.inc b/lcl/include/customlistbox.inc
index 205eb19315..dc7138f19b 100644
--- a/lcl/include/customlistbox.inc
+++ b/lcl/include/customlistbox.inc
@@ -40,6 +40,11 @@ begin
   end;
 end;
 
+procedure TCustomListBox.BeginAutoDrag;
+begin
+  BeginDrag(False);
+end;
+
 procedure TCustomListBox.Loaded;
 begin
   inherited Loaded;