...

Листинг 5.10.

Обработчик активизации формы

procedure TSoundPlayerForm.FormActivate(Sender: TObject);

begin

//Временное выключение таймера

tmTimer.Enabled := false;

//Задание значений

lbMainTime.Caption := \'00:00\

lbFileName.Caption := \'no file…\

// Установка фильтров для диалога

opdOpenDialog.Filter :=

\'MP3 music (*.mp3)|*.MP3|Wav files (*.wav)|*.WAV\

end;

Перемотка осуществляется при помощи двух кнопок. Для перемотки вперед на десять секунд необходимо нажать», назад – «(листинги 5.11 и 5.12).

Загрузка...