Компонент Windows MediaPlayer

[Fantom.as]

Сообщение от MyIE

На тойже вкладке, я не помню, не пользовался
Лучши напиши свой лист

Я написал, но им не очень удобно пользоваться

[Delphi_ProGer]

Я не понял. То как то сделать активной кнопки "вперед" и "назад"?

[Delphi_ProGer]

То что надо "привязать" к компоненту, что за плейлист????

[Ednikbod]

Спасибо за подсказку!

Но при добавлении +1 воспроизведение переходит только на единственный трек, который на 2-ой позиции после 0 (после 1 трека). Если повторно нажмёшь кнопку "Вперёд", воспроизведение так и останется на этой 2-ой позиции.

А как сделать, чтобы при нажатии кнопки "Вперёд" воспроизведение
перемещалось на все остальные треки?

Компилятор у меня: "Делфи 10.1" (2016 года).

Вот код программы, где я пытался это делать (указанная проблема во второй процедуре после implementation):

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.MPlayer, Vcl.StdCtrls, Vcl.Menus;

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    ListBox1: TListBox;
    OpenDialog1: TOpenDialog;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  SL: TStringList;

implementation

{$R *.dfm}

procedure TForm1.N10Click(Sender: TObject);
begin
MediaPlayer1.FileName:=SL.Strings[ListBox1.ItemIndex];
MediaPlayer1.Stop;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
 ListBox1.ItemIndex:=+1;
 MediaPlayer1.FileName:=SL.Strings[ListBox1.ItemIndex];
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm1.N3Click(Sender: TObject);
Var
 I: Integer;
begin
OpenDialog1.Options:=[ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing];
 IF OpenDialog1.Execute Then
  Begin
   For I:=0 to OpenDialog1.Files.Count -1 do
    Begin
     SL.Add(OpenDialog1.Files[I]);
     ListBox1.Items.Add(ExtractFileName(OpenDialog1.Files[I]));
    End;
  End;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
SL.Delete(ListBox1.ItemIndex);
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

procedure TForm1.N5Click(Sender: TObject);
begin
ListBox1.Clear;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
Self.Close;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
MediaPlayer1.FileName:=SL.Strings[ListBox1.ItemIndex];
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
MediaPlayer1.FileName:=SL.Strings[ListBox1.ItemIndex];
MediaPlayer1.Pause;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SL:=TStringList.Create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
SL.Free;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
MediaPlayer1.FileName:=SL.Strings[ListBox1.ItemIndex];
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

end.