...

Листинг 5.9.

Событие таймера

procedure TSoundPlayerForm.tmTimerTimer(Sender: TObject);

begin

//Обновление значений экрана

UpdateViewTime;

end;

Загрузка...