1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure TNemp_MainForm.SlideBarButtonStartDrag(Sender: TObject;
  var DragObject: TDragObject);
var AREct: tRect;
begin
  with (Sender as TControl) do Begindrag(false);
  ARect.TopLeft :=  (GRPBOXControl.ClientToScreen(Point(SlideBarButton.Left, SlideBarButton.Top)));
  ARect.BottomRight :=  (GRPBOXControl.ClientToScreen(Point(SlideBarButton.Left + SlideBarButton.Width, SlideBarButton.Top + SlideBarButton.Height)));

  ClipCursor(@Arect);
end;


procedure TNemp_MainForm.SlideBarButtonDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
Var newpos: integer;
  AREct: TRect;
begin
  NewPos := (Sender as TControl).Left + x - (SlideBarButton.Width div 2);
  if NewPos <= SlideBarShape.Left then
      NewPos := SlideBarShape.Left
    else
      if NewPos >= SlideBarShape.Width  + SlideBarShape.Left - SlideBarButton.Width then
        NewPos := SlideBarShape.Width + SlideBarShape.Left - SlideBarButton.Width;

  SlideBarButton.Left := NewPos;

  ARect.TopLeft :=  (GRPBOXControl.ClientToScreen(Point(SlideBarButton.Left, SlideBarButton.Top)));
  ARect.BottomRight :=  (GRPBOXControl.ClientToScreen(Point(SlideBarButton.Left + SlideBarButton.Width, SlideBarButton.Top + SlideBarButton.Height)));
    ClipCursor(@Arect);
end;

procedure TNemp_MainForm.SlideBarButtonDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  NempPlaylist.Progress := (SlideBarButton.Left-SlideBarShape.Left) / (SlideBarShape.Width-SlideBarButton.Width);
  ClipCursor(NIL);
end;