Nicht wenn ich im MouseMove das so mache:
Delphi-Quellcode:
if (ssLeft in Shift) and
((Abs(LastPoint.X - X) > 6) or
(Abs(LastPoint.Y - Y) > 6)) then
begin
StartDragging := True;
Label1.BeginDrag(False, 8);
StartDragging := False;
end;
LastPoint wurde im MouseDown gesetzt.
Damit ist StartDragging nicht immer True im MouseUp