Стр. 210 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
210
//имя файла
MediaPlayer1.FileName:='';
//формирование нового списка файлов
GetFilePath(Edit1.Text);
end;
8. Создадим процедуру ListBox1Click для обработки события OnClick
компонента ListBox1. Оформим ее следующим образом.
//процедура выполняется при щелчке мышью в компоненте ListBox1
procedure TForm1.ListBox1Click(Sender: TObject);
begin
//номер текущего элемента
curr:=ListBox1.ItemIndex;
//имя проигрываемого файла
MediaPlayer1.FileName:=ms[curr];
//открытие файла
MediaPlayer1.Open;
//заголовок файла
Form1.Caption:=ExtractFileName(ms[curr]);
end;
9. Создадим процедуру MediaPlayer1Click для обработки события
OnClick компонента MediaPlayer1. Оформим ее следующим образом.
//процедура выполняется при нажатии какой – либо
//кнопки медиа– проигрывателя
procedure TForm1.MediaPlayer1Click(Sender: TObject; Button:
TMPBtnType; var DoDefault: Boolean);
begin
//если была нажата кнопка play
if Button=btPlay then
begin
//начальное значение числа секунд
sec:=0;
//начальное значение числа минут
min:=0;
//начальное значение числа часов
hour:=0;
//работа таймера разрешена
Timer1.Enabled:=true;
end;
//если была нажата кнопка stop
if Button=btStop then