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;
Ich würde aber in dem Fall
Label1.BeginDrag(true);
aufrufen. Sonst muss der User noch mal um 8 pixel verschieben
