hvordan laver jeg en seekbar til min mp3player?
function TForm1.PlaySong : string;
seekbar.Max := 0;
Mediaplayer1.close;
mediaplayer1.FileName := 'd:\\blah\\blah.mp3'
mediaplayer1.open;
mediaplayer1.play;
seekbar.Max := mediaplayer1.Length;
timer1.Enabled := true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if seekbar.Max <> 0 then
seekbar.Position := mediaplayer1.Position;
end;
procedure TForm1.seekbarChange(Sender: TObject);
begin
mediaplayer1.Position := seekbar.Position;
end;
det her virker en lille smugle
hvis jeg bare seekbaren være så skifter den position uden problemer, men når jeg skifter seekbarens position så kan jeg se at tiden hop frem men sangen går i stå?!?