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

Информатика. Программирование в Delphi
209
Form1.ListBox1.Clear;
//длина динамического массива
ms_count:=0;
//установка длины динамического массива
SetLength(ms,ms_count);
//заголовок формы
Form1.Caption:='';
end;
end;
6. Создадим процедуру FormCreate для обработки события OnCreate
формы. Оформим ее следующим образом.
//процедура выполняется при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin
//запрет работы таймера
Timer1.Enabled:=false;
//интервал таймера
Timer1.Interval:=1000;
//заголовок формы
Form1.Caption:='';
//стиль границ формы
Form1.BorderStyle:=bsSingle;
//разрешенные иконки
Form1.BorderIcons:=[biSystemMenu,biMinimize];
//видимые кнопки
MediaPlayer1.VisibleButtons:=[btPlay,btPause,btStop];
//формирование списка файлов
GetFilePath(Edit1.Text);
end;
7. Создадим процедуру Edit1Change для обработки события OnChange
компонента Edit1. Оформим ее следующим образом.
//происходит при изменении текста
procedure TForm1.Edit1Change(Sender: TObject);
begin
//если проигрывается какой либо файл
if MediaPlayer1.Mode=mpPlaying then
//остановка проигрывания файла
MediaPlayer1.Stop;
//закрытие текущего файла
MediaPlayer1.Close;