МышьАрг.Нажатия (MouseEventArgs.Clicks) Свойство

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

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

Функция Форма1_Аргументы() Экспорт
	МышьАрг1 = Ф.МышьАрг();
	Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	Сообщить("МышьАрг1.Нажатия = " + МышьАрг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.Игрек);
	// Сообщить("МышьАрг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_Нажатия = 1, "", "!!! ") + "МышьАрг.Нажатия (MouseEventArgs.Clicks) Свойство" + " " + ТекущаяДата());