Верхний.Сфокусирован (Toplevel.HasFocus) Свойство

Копировать

Перем Верхний1;

Процедура ПриОткрытии() Экспорт
	Верхний1.Текст = "Верхний1.Текст = " + Верхний1.Сфокусирован;
КонецПроцедуры

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

Верхний1 = ТФ.Верхний();
Верхний1.СтильКомпоновки = ТФ.СтильКомпоновки.Абсолютно;
Верхний1.Икс = ТФ.Позиция.Абсолютно(1);
Верхний1.Игрек = ТФ.Позиция.Абсолютно(1);
Верхний1.Ширина = ТФ.Величина.Абсолютно(40);
Верхний1.Высота = ТФ.Величина.Абсолютно(1);
Верхний1.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Верхний1.Текст = "Верхний1";
Граница1 = ТФ.Граница();
Граница1.СтильГраницы = ТФ.СтильГраницы.Двойная;
Верхний1.Граница = Граница1;
ТФ.Верхний.Добавить(Верхний1);

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

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

Копировать

Перем Верхний1, Сфокусирован;

Процедура ПриОткрытии() Экспорт
	Сфокусирован = Верхний1.Сфокусирован;
КонецПроцедуры

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

Верхний1 = ТФ.Верхний();
Верхний1.СтильКомпоновки = ТФ.СтильКомпоновки.Абсолютно;
Верхний1.Икс = ТФ.Позиция.Абсолютно(1);
Верхний1.Игрек = ТФ.Позиция.Абсолютно(1);
Верхний1.Ширина = ТФ.Величина.Абсолютно(40);
Верхний1.Высота = ТФ.Величина.Абсолютно(1);
Верхний1.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Верхний1.Текст = "Верхний1";
Граница1 = ТФ.Граница();
Граница1.СтильГраницы = ТФ.СтильГраницы.Двойная;
Верхний1.Граница = Граница1;
ТФ.Верхний.Добавить(Верхний1);

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

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