All is described here https://forum.lazarus.freepascal.org/index.php/topic,43664.0.html and demo project attached. Do you consider it as LCL bug? (I need that Mouse.IsDragging works only after mouse moved by DragThreshold value. Btw, TControl.Dragging is flawed the same way.) -- Regards, Alexey