АргументыСобытия.Отправитель (EventArgs.Sender) Свойство

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

Перем Ф;

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

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

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

Кнопка1 = Форма1.ЭлементыУправления.Добавить(Ф.Кнопка());
Кнопка1.Текст = "Кнопка";

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

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

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

Перем Ф, Результат, Форма1;

Процедура НажатиеФормы() Экспорт
	Отправитель = Ф.АргументыСобытия.Отправитель;
	Результат = Отправитель.Тип.Имя;
КонецПроцедуры

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

Ф.ВызватьСобытие(Форма1, "Нажатие");

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