ЭлементУправления.ТочкаНаЭкране (Control.PointToScreen) Метод

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

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

Форма1.Лево = 100;
Форма1.Верх = 100;
Точка = Ф.Точка(0, 0);
Сообщить("Икс = " + Форма1.ТочкаНаЭкране(Точка).Икс);
Сообщить("Игрек = " + Форма1.ТочкаНаЭкране(Точка).Игрек);
Сообщить("Лево = " + Форма1.Лево);
Сообщить("Верх = " + Форма1.Верх);
	
Ф.ЗапуститьОбработкуСобытий();

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

Перем Ф, Форма1, Икс, Игрек, Позиция;

Функция Форма1_ПриНажатииКнопкиМыши() Экспорт
	Икс = Форма1.ТочкаНаЭкране(Позиция).Икс;
	Игрек = Форма1.ТочкаНаЭкране(Позиция).Игрек;
КонецФункции

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

Форма1.Лево = 100;
Форма1.Верх = 100;
Позиция = Ф.Точка(100, 100);
Ф.Курсор().Позиция = Позиция;
Словарь1 = Ф.Словарь();
Словарь1.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь1.Добавить("Нажатия", 1);
Словарь1.Добавить("Икс", Позиция.Икс);
Словарь1.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Форма1, "ПриНажатииКнопкиМыши", Словарь1);

Сообщить(?(
Икс > 100 и 
Игрек > 100
, "", "!!! ") + "ЭлементУправления.ТочкаНаЭкране (Control.PointToClient) Метод" + " " + ТекущаяДата());