Элемент.ФокусПотерян (Element.LostFocus) Событие

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

Перем ДФ, Абзац1, ФокусПотерян;

Процедура Форма1_Загружена() Экспорт
	// Сообщить("Форма1_Загружена");
	Приостановить(1); // Без этой строки не сработает строка ниже.
	Абзац1.СнятьФокус();
КонецПроцедуры

Процедура Абзац1_ФокусПолучен() Экспорт
	// Сообщить("Абзац1_ФокусПолучен");
КонецПроцедуры

Процедура Абзац1_ФокусПотерян() Экспорт
	// Сообщить("Абзац1_ФокусПотерян");
	ФокусПотерян = Истина;
	Сообщить(?(
	ФокусПотерян
	, "", "!!! ") + "СнятьФокус_Абзац_метод.os" + " " + ТекущаяДата());
	// ДФ.ЗавершитьРаботу();
КонецПроцедуры

ФокусПотерян = Ложь;

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

Абзац1 = ДФ.Абзац();
Абзац1.Родитель = Форма1;
Абзац1.Текст = "Это Абзац1";
Абзац1.Стиль.ЦветФона = ДФ.Цвет.Красный;
Абзац1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Абзац1_ФокусПолучен");
Абзац1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Абзац1_ФокусПотерян");
Абзац1.Редактируемый = Истина;

Абзац2 = ДФ.Абзац();
Абзац2.Родитель = Форма1;
Абзац2.Текст = "Это Абзац2";
Абзац2.Стиль.ЦветФона = ДФ.Цвет.Голубой;
Абзац2.Редактируемый = Истина;

Абзац1.Фокус();

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