[delphi]Program do odtwarzania MP3

robie sobie taki programik do odtwarzania muzyki i mam problemik <ort>otóż</ort> zrobilem sobie dzieki komponentowi TScrollBar przwijacz muzyki , ale po przewinięciu odtwarzacz sie palzuje i trzeba dac Play moze wiecie jak to rozwiazac??

tutaj kawalek kodu (korzystam z TMediaPlayera):

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Scroll.Position := Player.Position;
end;

procedure TForm1.scrollScroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
Player.Position := Scroll.Position;
end;

za wszystkie odpowiedzi z gory dzieki :) [browar]

Robisz odtwarzacz na TMediaPlayer? O ile pamiętam, tam się takie rzeczy działy. Po prostu po przeiwnięciu dawaj play... to chyba nie problem?

procedure TForm1.scrollScroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
  Player.Position := Scroll.Position;
// tutaj  dodaj fikcyjne kliknięcie na przycisk Play i powinno działać
end; 

[dopisane] znów za późno :)

A czy przypadkiem Scroll.Position := Player.Position; nie wywoła zdarzenia Scroll?

Wywoła. I dlatego przydałoby się to zablokować. Na przykład za pomocą dodatkowej zmiennej logicznej i czegoś takiego (piszę z pamięci, więc może nie działać, ale o ideę chodzi):

bool:=true;
Scroll.Position:=Player.Position;
bool:=false;

i w drugiej procedurce:

if not bool then begin
Player.Position:=Scroll.Position;
Player.Play;
end;

//P.S. Polecałbym mimo wszystko BASS'a, nie TMediaPlayer'a. Ew. jak wolisz, to TMP3 (ze źródeł PilotMP3, link w stopce).