Jeśli na formularzu masz już ustawiony komponent TMediaPlayer
1. Umieść komponent TScrollBar możesz łatwo "dorobić" przewijanie muzyki do dowolnej pozycji.
2. Umieść na formularzu jeszcze komponent TTimer z palety System.
3. Kilknij na niego dwukrotnie i wypełnij procedurę następująco:
Kod:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
If MediaPlayer1.FileName = '' Then Exit;
ScrollBar1.Position := MediaPlayer1.Position;
end;
4.Po czym zaznacz komponent ScrollBar i w Inspektorze Obiektów odszukaj zdarzenie OnScroll
5. kliknij dwukrotnie nań aby wygenerować procedurę obsługi zdarzenia OnScroll (wykonywanego przy przesuwaniu suwaka).
6. Procedurę uzupełnij następująco:
Kod:
MediaPlayer1.Pause;
MediaPlayer1.Position := ScrollBar1.Position;
MediaPlayer1.Play;
7.Teraz ważna sprawa. W procedurze otwierającej muzykę, dopisz po instrukcji MediaPlayer1.Open następującą instrukcję:
Kod:
ScrollBar1.Max := MediaPlayer1.Length;
W załączniku gotowa lekcja
Załączone pliki
