Окно.Сфокусирован (Window.HasFocus) Свойство

Копировать

Перем Окно0;

Процедура ПриОткрытии() Экспорт
	Стр = "====================
	|";
	Для Каждого Эл Из Окно0.Подэлементы Цикл
		Стр = Стр + Эл.Заголовок + " Сфокусирован = " + Эл.Сфокусирован + Символы.ПС;
	КонецЦикла;
	Окно0.Текст = Стр;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

Окно0 = ТФ.Окно("Окно0");
Окно0.Заполнить();
ТФ.Верхний.Добавить(Окно0);

Окно1 = ТФ.Окно("Окно1");
Окно1.Икс = ТФ.Позиция.Абсолютно(1);
Окно1.Игрек = ТФ.Позиция.Абсолютно(15);
Окно1.Ширина = ТФ.Величина.Абсолютно(60);
Окно1.Высота = ТФ.Величина.Абсолютно(11);
Окно0.Добавить(Окно1);

Окно2 = ТФ.Окно("Окно2");
Окно2.Ширина = Окно1.Ширина;
Окно2.Высота = Окно1.Высота;
Окно2.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Окно2.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Черный, ТФ.Цвет.ТемноСерый);
Окно0.Добавить(Окно2);
Окно2.ВышеПравее(Окно1, -14, -53);

Окно3 = ТФ.Окно("Окно3");
Окно3.Ширина = Окно1.Ширина;
Окно3.Высота = Окно1.Высота;
Окно3.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Окно3.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Черный, ТФ.Цвет.Зеленый);
Окно0.Добавить(Окно3);
Окно3.ВышеПравее(Окно2, -7, -53);

Окно4 = ТФ.Окно("Окно4");
Окно4.Ширина = Окно1.Ширина;
Окно4.Высота = Окно1.Высота;
Окно4.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Окно4.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Черный, ТФ.Цвет.Голубой);
Окно0.Добавить(Окно4);
Окно4.ВышеПравее(Окно3, -10, -53);

Окно4.УстановитьФокус();

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");

ТФ.Запуск();

Копировать

Перем Окно0, Окно4, Сфокусирован;

Процедура ПриОткрытии() Экспорт
	Стр = "====================
	|";
	Для Каждого Эл Из Окно0.Подэлементы Цикл
		Стр = Стр + Эл.Заголовок + " Сфокусирован = " + Эл.Сфокусирован + Символы.ПС;
	КонецЦикла;
	Окно0.Текст = Стр;
	
	Сфокусирован = Окно4.Сфокусирован;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

Окно0 = ТФ.Окно("Окно0");
Окно0.Заполнить();
ТФ.Верхний.Добавить(Окно0);

Окно1 = ТФ.Окно("Окно1");
Окно1.Икс = ТФ.Позиция.Абсолютно(1);
Окно1.Игрек = ТФ.Позиция.Абсолютно(15);
Окно1.Ширина = ТФ.Величина.Абсолютно(60);
Окно1.Высота = ТФ.Величина.Абсолютно(11);
Окно0.Добавить(Окно1);

Окно2 = ТФ.Окно("Окно2");
Окно2.Ширина = Окно1.Ширина;
Окно2.Высота = Окно1.Высота;
Окно2.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Окно2.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Черный, ТФ.Цвет.ТемноСерый);
Окно0.Добавить(Окно2);
Окно2.ВышеПравее(Окно1, -14, -53);

Окно3 = ТФ.Окно("Окно3");
Окно3.Ширина = Окно1.Ширина;
Окно3.Высота = Окно1.Высота;
Окно3.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Окно3.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Черный, ТФ.Цвет.Зеленый);
Окно0.Добавить(Окно3);
Окно3.ВышеПравее(Окно2, -7, -53);

Окно4 = ТФ.Окно("Окно4");
Окно4.Ширина = Окно1.Ширина;
Окно4.Высота = Окно1.Высота;
Окно4.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Окно4.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Черный, ТФ.Цвет.Голубой);
Окно0.Добавить(Окно4);
Окно4.ВышеПравее(Окно3, -10, -53);

Окно4.УстановитьФокус();

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");
ТФ.ЗапуститьИЗавершить();

Сообщить(?(
Сфокусирован
, "", "!!! ") + "Окно.Сфокусирован (Window.HasFocus) Свойство" + " " + ТекущаяДата() + Символы.ПС);