procedure TForm1.ScrollBar2MouseLeave(Sender: TObject);
begin
sliding:=false;
end;
procedure TForm1.ScrollBar2MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
sliding:=true;
end;
procedure TForm1.ScrollBar2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
sliding:=true;
if button = mbleft then
BASS_ChannelSetPosition(music, Scrollbar2.position);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not sliding then
Scrollbar2.Position :=BASS_ChannelGetPosition(music);
end;
|