procedure TModiForm.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.Position = MediaPlayer1.Length then
//放到了最后一首歌结束
begin
if ListBox1.Items.Count - 1 = ListBox1.ItemIndex then
begin
ListBox1.ItemIndex := 0;
MediaPlayer1.FileName := ListBox1.Items.Strings[ListBox1.itemindex];
MediaPlayer1.Open;
ModiForm.MediaPlayer1.DisplayRect := Rect(0, 0, MoviesForm.ClientWidth,
MoviesForm.ClientHeight);
MediaPlayer1.Play;
end
else
//没有放到最后一首歌
begin
ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
MediaPlayer1.FileName := ListBox1.Items.Strings[ListBox1.itemindex];
MediaPlayer1.Open;
ModiForm.MediaPlayer1.DisplayRect := Rect(0, 0, MoviesForm.ClientWidth,
MoviesForm.ClientHeight);
MediaPlayer1.Play;
end;
end;
end;
