Trackbar/Zeit

[Nils_13]

Hi,

mit der JVCL-Trackbar möchte ichs jetzt machen!
Es funktioniert nicht: wenn ich wieder die Mausloslasse geht der Slider zur ursprünglichen Position zurück und es ist nichts passiert!

Delphi-Quellcode:

procedure TFormPlayer.Timer1Timer(Sender: TObject);
var
  hFileStream, TrackPos: Integer;
begin
hFileStream := BASS_StreamCreateFile(FALSE, @FileName[1], 0, 0, BASS_MP3_SETPOS
    or BASS_STREAM_AUTOFREE);
  TrackPos := BASS_ChannelGetPosition(hFileStream);
  tb1.Position := TrackPos;
end;

procedure TFormPlayer.tb1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled := false;
BASS_ChannelPause(channel); 
end;

procedure TFormPlayer.tb1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var hFileStream,TrackPos: Integer;
begin
hFileStream := BASS_StreamCreateFile(FALSE, @FileName[1], 0, 0, BASS_MP3_SETPOS
    or BASS_STREAM_AUTOFREE);
TrackPos := BASS_ChannelGetPosition(hFileStream);
BASS_ChannelSetPosition(channel, tb1.Position);
BASS_StreamPlay(channel, false, 0);
tb1.position:=TrackPos;
Timer1.Enabled := true;
end;