bass.dll Trackbar Problem

[Clobber the mob]

Delphi-Quellcode:

procedure TForm1.TrackBarScroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
  if ScrollCode = scEndScroll then begin
    BASS_ChannelSetPosition(stream, Trackbar.Position);
    Tracking := False;
  end else
    Tracking := True;
end;

ich habs mit nem Timer gemacht:

Delphi-Quellcode:

procedure TForm1.TrackBarTimerTimer(Sender: TObject);
begin
  if Tracking = False then
  TrackBar.Position := BASS_ChannelGetPosition(stream);
end;

Hoffe das hilft dir weiter