Аудио.Завершено (Audio.Ended) Свойство

Копировать     Выделить всё

Перем ДФ;
Перем Аудио1;

Процедура Свойство() Экспорт
	Сообщить("Аудио1.Завершено = " + Аудио1.Завершено);
КонецПроцедуры

Процедура Форма1_Загружена() Экспорт
	ДФ.ПолучитьСвойство(Аудио1, "Завершено", ДФ.Действие(ЭтотОбъект, "Свойство"));
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\DeclarativeForms\DeclarativeForms\bin\Debug\DeclarativeForms.dll");
ДФ = Новый ДекларативныеФормы();
Форма1 = ДФ.Форма;
Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена");

Аудио1 = ДФ.Аудио();
Аудио1.Родитель = Форма1;
Аудио1.Контролы = Истина;
Аудио1.Источник = "Kaoma_Lambada.mp3";

Аудио1.Воспроизвести();

Форма1.Открыть();