Już wiem jak zrobić, aby w miare upływu pioseknki wskaźnik suwaka się poruszał (jeżeli nie wiesz o co chodzi to patrz:
0
0
no bo tak sie nie robi zeby do timera to wsadzac :P to raczej w onchange trackbara, ale uprzednio dezaktywowac trzeba timera a jak sie zwolni klawisz myszki to znowu walczyc timer, jak nie wiem bo trackabr nie obsluguje eventu buttondown buttonup itp.
0
To faktycznie nie bardzo zadziała, szczególnie w połączeniu z przesuwaniem Scrollbara, tak jak chciałeś poprzednim razem. Ja kiedyś kombinowałem coś, nawet mi się udało, ale gdzieś mi zapodziało kod do tego, więc będę tworzył na bieżąco.
Na formę kładziemy Scrollbar, Timer i Mediaplayer.
Pamiętam, że coś kombinowałem ze zmienną typu boolean, więc sobie taką zdefiniujemy :
[code]
z_timera : boolean;
[/code]
Teraz w dla zdarzenia OnTimer :
[code]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
scrollbar1.Position := mediaplayer1.Position;
z_timera := true;
end;
[/code]
Potem dla zdarzenia OnChange scrollbara :
[code]
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
if not z_timera then mediaplayer1.Position := scrollbar1.position;
z_timera := false;
end;
[/code]
I powinno być okej. Uwaga : To jest nieodporne na błędy, raczej jakaś
niespodzianka wyskoczy, jak nie będzie nic otwarte w mediaplayerze.
Trzebaby zablokować timer, jeśli nic nie ma w mediaplayerze, albo coś.
0
OnScroll +F1 tam jest taka wlasciwosc var ;) (ScrollPos)
procedure TForm1.mp3positionScroll(Sender: TObject;
ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
mp3.Position:=scrollpos;
if (scEndScroll = scrollcode) then mp3.Play; end;
end;