Экран.Границы (Screen.Bounds) Свойство

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

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

Экран1 = Ф.Экран();
Сообщить("Ширина = " + Экран1.Границы.Ширина);
Сообщить("Высота = " + Экран1.Границы.Высота);

Ф.ЗапуститьОбработкуСобытий();

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

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

Экран1 = Ф.Экран();

Сообщить(?(
Экран1.Границы.Ширина > 0
, "", "!!! ") + "Экран.Границы (Screen.Bounds) Свойство" + " " + ТекущаяДата());