Вариант 1: Окно проигрывателя.
Кидаем на форму компонент TMediaPlayer на вкладе System.
Настройки оставляем прежними, не меняем.
Кинем еще пару компонентов TListBox, TButton, TOpenDialog.
У Button1 в поле Caption впишем Open.. - смотрим Object Inspector.
Кликаем дважды по кнопке, переходим к кодингу.
Между двумя строками
Begin End; впишем
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
ListBox1.Items.Add(OpenDialog1.FileName);
Mediaplayer1.FileName := OpenDialog1.FileName;
Mediaplayer1.Open;
end;
end;
Идем дальше, переходим к TListBox
Выделим его и перейдем на Object Inspector \ Events
Создадим событие на OnDblClick;
Впишем этот код:
Код:
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
if ListBox1.Items.Count > 0 then
begin
Mediaplayer1.FileName := ListBox1.Items.Strings[ListBox1.itemindex];
Mediaplayer1.Play;
end;
end;