Если ПроверитьДоступностьВвода И Не Этаформа.ВводДоступен() Тогда // При открытии формы ВводДоступен() всегда равно Ложь
Возврат;
КонецЕсли;
Если ПоложениеПрикрепленногоОкна = Неопределено Тогда
Если ЭтаФорма.СостояниеОкна = ВариантСостоянияОкна.Прикрепленное Тогда
ПоложениеПрикрепленногоОкна = ЭтаФорма.ПоложениеПрикрепленногоОкна;
КонецЕсли;
КонецЕсли;
Если ПоложениеПрикрепленногоОкна <> Неопределено Тогда
WSHShell = Новый COMОбъект("WScript.Shell");
Если ирКэш.НомерВерсииПлатформыЛкс() >= 803017 Тогда
Если ТипЗнч(ЭтаФорма) = Тип("Форма") Тогда
КомандаАктивацииПунктаОкна = "{UP 2}";
Иначе
КомандаАктивацииПунктаОкна = "{UP 4}";
КонецЕсли;
WSHShell.SendKeys("%-"); // Такой вызов меню окна не работает в 8.3.15-16
WSHShell.SendKeys(КомандаАктивацииПунктаОкна);
WSHShell.SendKeys("{ENTER}");
Если ПоложениеПрикрепленногоОкна = ВариантПрикрепленияОкна.Верх Тогда
WSHShell.SendKeys("{Down 4}");
ИначеЕсли ПоложениеПрикрепленногоОкна = ВариантПрикрепленияОкна.Низ Тогда
WSHShell.SendKeys("{Down 5}");
ИначеЕсли ПоложениеПрикрепленногоОкна = ВариантПрикрепленияОкна.Лево Тогда
WSHShell.SendKeys("{Down 2}");
ИначеЕсли ПоложениеПрикрепленногоОкна = ВариантПрикрепленияОкна.Право Тогда
WSHShell.SendKeys("{Down 3}");
КонецЕсли;
WSHShell.SendKeys("{ENTER}");
ИначеЕсли ирКэш.НомерВерсииПлатформыЛкс() >= 803015 Тогда
// WSHShell.SendKeys("%-"); // Такой вызов меню окна не работает в 8.3.15-16
Иначе
WSHShell.SendKeys("%");
WSHShell.SendKeys("{Down 1}");
WSHShell.SendKeys("{О}");
Если ПоложениеПрикрепленногоОкна = ВариантПрикрепленияОкна.Верх Тогда
WSHShell.SendKeys("{UP 4}");
ИначеЕсли ПоложениеПрикрепленногоОкна = ВариантПрикрепленияОкна.Низ Тогда
WSHShell.SendKeys("{UP 3}");
ИначеЕсли ПоложениеПрикрепленногоОкна = ВариантПрикрепленияОкна.Лево Тогда
WSHShell.SendKeys("{UP 6}");
ИначеЕсли ПоложениеПрикрепленногоОкна = ВариантПрикрепленияОкна.Право Тогда
WSHShell.SendKeys("{UP 5}");
КонецЕсли;
WSHShell.SendKeys("{ENTER}");
КонецЕсли;
КонецЕсли;
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший