OneScriptForms.MouseKeyPress Method

Синтаксис

НажатьКнопкуМыши(<Флаг>)

НажатьКнопкуМыши(<Флаг>, <ПеремещениеПоИкс>, <ПеремещениеПоИгрек>)

Параметры

Флаг: Тип: ФлагиМыши (MouseFlags).; Константы действий мыши.
ПеремещениеПоИкс: Тип: Число.; Величина продвижения мыши по оси икс.
ПеремещениеПоИгрек: Тип: Число.; Величина продвижения мыши по оси игрек.

Возвращаемое значение

Описание

Эмулирует действие кнопок мышки и её перемещение.

Примечание

Положительные значения параметров ПеремещениеПоИкс и ПеремещениеПоИгрек подразумевают, что мышь перемещалась вправо (или вниз); отрицательные значения подразумевают, что мышь двигалась влево (или вверх).

Перемещение курсора мыши происходит относительно текущего положения курсора мыши.

Важно: В системе отличной от семейства Windows данный метод неприменим.

Пример

Ф.НажатьКнопкуМыши(Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх);

Полный пример кода

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

Перем Ф, Форма1;

Функция Форма1_ПриНажатииКнопкиМыши() Экспорт
	Сообщить("КнопкиМыши = " + Форма1.КнопкиМыши);
КонецФункции

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

Форма1.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Форма1_ПриНажатииКнопкиМыши");

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

Тестовый код

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

Перем Ф, Форма1, Кнопка;

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

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

Форма1.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Форма1_ПриНажатииКнопкиМыши");

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

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

Сообщить(?(
Кнопка = 1048576
, "", "!!! ") + "ФормыДляОдноСкрипта.НажатьКнопкуМыши (OneScriptForms.MouseKeyPress) Метод" + " " + ТекущаяДата());