Ok, pretragom sam pronasao da se na TMediaPlayer moze obraditi dogadjaj
OnNotify. Obradio sam ga ovako:
Code:
SongBox.ItemIndex := SongBox.ItemIndex +1;
TrackName.Caption:= SongBox.Items[SongBox.ItemIndex];
fName := TrackName.Caption;
TrackName.Caption := fName;
MediaPlayer.FileName := fName;
MediaPlayer.open;
MediaPlayer.Play;
Medjutim, sad na TButton - event
OnClick, ne funkcionise:
Code:
MediaPlayer.Stop;
Odnosno, kad se recmo na pola pesme pritisne STOP onda ako je jedna pesma u SongBox-u (TListBox) pokrece se ispocetka, a ako ima vise, onda prelazi na sledecu. A, ako se vratim na prethodnu ili bilo koju drugu pesmu program zablokira.
Pomozite mi da procistim kod... I da prelazak s jedne na drugu pesmu funkcionise ispravno...
Hvala unapred...
[Ovu poruku je menjao inherited dana 22.05.2006. u 22:34 GMT+1]