Только чтение.
Тип: Точка (Point).
Возвращает позицию курсора мыши в экранных координатах.
Форма1.Текст = "X = " + Форма1.ПозицияМыши.Икс + " , Y = " + Форма1.ПозицияМыши.Игрек;
Копировать Выделить всёПерем Ф, Форма1; Функция Форма1_ПриПеремещенииМыши() Экспорт Форма1.Текст = "X = " + Форма1.ПозицияМыши.Икс + " , Y = " + Форма1.ПозицияМыши.Игрек; КонецФункции ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); Форма1.ПриПеремещенииМыши = Ф.Действие(ЭтотОбъект, "Форма1_ПриПеремещенииМыши"); Ф.ЗапуститьОбработкуСобытий();
Копировать Выделить всёПерем Ф, Форма1; Функция Форма1_ПриПеремещенииМыши() Экспорт Форма1.Текст = "X = " + Форма1.ПозицияМыши.Икс + " , Y = " + Форма1.ПозицияМыши.Игрек; // Сообщить(Форма1.Текст); КонецФункции ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); Форма1.ПриПеремещенииМыши = Ф.Действие(ЭтотОбъект, "Форма1_ПриПеремещенииМыши"); Ф.РазрешитьСобытия = Истина; Форма1.Активизировать(); Форма1.Обновить(); Курсор1 = Ф.Курсор(); Точка1 = Форма1.Положение; НовыйИкс = Точка1.Икс + 100; НовыйИгрек = Точка1.Игрек + 100; Приостановить(1000); Курсор1.Позиция = Ф.Точка(НовыйИкс, НовыйИгрек); Приостановить(1000); Форма1_ПриПеремещенииМыши(); Сообщить(?( Форма1.Текст = "X = " + НовыйИкс + " , Y = " + НовыйИгрек , "", "!!! ") + "ЭлементУправления.ПозицияМыши (Control.MousePosition) Свойство" + " " + ТекущаяДата());
ЭлементУправления (Control) Класс | Библиотека OneScriptForms