ИдентификацияФормыСПоддержкойAPI.bsl

#Область ПрограммныйИнтерфейс

&НаКлиенте
Функция МетодAPI() Экспорт
	
	ПоказатьПредупреждение(, "Я форма теста: я поддерживаю МетодAPI()");
	
КонецФункции

#КонецОбласти

#Область ОбработчикиКомандФормы

&НаКлиенте
Процедура НайтиФормыСПодержкойAPI(Команда)
	
	Для Каждого ТекОкно Из ПолучитьОкна() Цикл
		ТекФорма = ТекОкно.ПолучитьСодержимое();
		Если ЭтаФормаПоддерживаетAPI(ТекФорма) Тогда
			ТекФорма.МетодAPI();
		КонецЕсли;
	КонецЦикла;
	
КонецПроцедуры

#КонецОбласти

#Область СлужебныеПроцедурыИФункции

&НаКлиенте
Функция ЭтаФормаПоддерживаетAPI(Знач Форма)
	
	Если ТипЗнч(Форма) <> Тип("УправляемаяФорма") Тогда
		Возврат Ложь;
	КонецЕсли;
	
	ИзвлекаемыеРеквизитыФормы = Новый Структура;
	ИзвлекаемыеРеквизитыФормы.Вставить("ПоддерживаетAPI");
	
	ЗаполнитьЗначенияСвойств(ИзвлекаемыеРеквизитыФормы, Форма);
	
	Возврат ИзвлекаемыеРеквизитыФормы.ПоддерживаетAPI = Истина;
	
КонецФункции

#КонецОбласти

ПоддерживаетAPI = Истина;