select next

Hvis det er en playlist av typen TListBox, kan du sette dens ItemIndex til ItemIndex + 1?

Mvh
DiZpel

[Redigeret d. 16/04-04 18:19:24 af DiZpel]

Prøv sådan her:

procedure TForm1.MediaPlayer1Notify(Sender: TObject); 
begin 
if MediaPlayer1.Position = MediaPlayer1.Length then 
mediaplayer1.FileName := listbox1.Items.Strings[listbox1.ItemIndex + 1]; 
Listbox1.ItemIndex := Listbox1.ItemIndex + 1; 
mediaplayer1.Close; 
mediaplayer1.open; 
mediaplayer1.play; 
end; 

---
Hilsen Anders

[Redigeret d. 16/04-04 20:51:01 af Anders (r0x3r)]

Hva mener du med ikke merket??
Er det i en playlist?

Mvh
DiZpel

denne virker ikke

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.Position = MediaPlayer1.Length then
mediaplayer1.FileName := listbox1.Items.Strings[listbox1.ItemIndex + 1];
Listbox1.Selected[Listbox1.ItemIndex + 1];
mediaplayer1.Close;
mediaplayer1.open;
mediaplayer1.play;
end;

når sangen er færdig så går den næste sang igang, men sangen bliver ikke mærkeret min listbox

[Redigeret d. 16/04-04 19:31:58 af hasan]