ЭлементУправления.ПриНажатииКнопкиМыши (Control.MouseDown) Свойство

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

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

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

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма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);
Словарь1.Добавить("Икс", Позиция.Икс);
Словарь1.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Форма1, "ПриНажатииКнопкиМыши", Словарь1);

Сообщить(?(
Форма1_КнопкиМыши > 0
, "", "!!! ") + "ЭлементУправления.ПриНажатииКнопкиМыши (Control.MouseDown) Свойство" + " " + ТекущаяДата());