ФормыДляОдноСкрипта.Отправитель (OneScriptForms.Sender) Свойство

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

Перем Ф;

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

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

Сообщить(?(
"" + Отправитель = "КлФорма"
, "", "!!! ") + "ФормыДляОдноСкрипта.Отправитель (OneScriptForms.Sender) Свойство" + " " + ТекущаяДата());