Действие.ИмяМетода (Action.MethodName) Свойство

Копировать

Перем ТФ, Счетчик, Действие1;

Процедура ПриОткрытии() Экспорт
	Кнопка1_Нажатие();
КонецПроцедуры

Процедура Кнопка1_Нажатие() Экспорт
	Счетчик = Счетчик + 1;
	АргументыСобытия1 = ТФ.АргументыСобытия;
	Параметр = АргументыСобытия1.Параметр;
	ТФ.Верхний.Текст = "Кнопа Нажата " + Счетчик + " раз.
	|Действие1.ИмяМетода = " + Действие1.ИмяМетода + "
	|Действие1.Параметр = " + Действие1.Параметр + "
	|Действие1.Сценарий = " + Действие1.Сценарий;
КонецПроцедуры

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

Счетчик = 0;

Кнопка1 = ТФ.Кнопка();
Кнопка1.Текст = "Нажми меня";
Кнопка1.Икс = ТФ.Позиция.Центр();
Кнопка1.Игрек = ТФ.Позиция.Центр();
Кнопка1.Высота = ТФ.Величина.Абсолютно(3);
ТФ.Верхний.Добавить(Кнопка1);

Структура1 = Новый Структура("Буратино","Деревянная кукла, наивная, добродушная и озорная.");
Структура1.Вставить("Карло", "Шарманщик, который вырезал Буратино из полена.");
Структура1.Вставить("Дуремар", "Продавец лечебных пиявок и друг Карабаса.");
Структура1.Вставить("Тортила", "Добрая черепаха, которая подарила Буратино золотой ключик.");

Действие1 = ТФ.Действие();
Действие1.ИмяМетода = "Кнопка1_Нажатие";
Действие1.Параметр = Структура1;
Действие1.Сценарий = ЭтотОбъект;
Кнопка1.Нажатие = Действие1;

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии", Структура1);

ТФ.Запуск();

Копировать

Перем ТФ, Счетчик, Буратино;

Процедура ПриОткрытии() Экспорт
	Счетчик = Счетчик + 1;
	АргументыСобытия1 = ТФ.АргументыСобытия;
	Параметр = АргументыСобытия1.Параметр;
	ТФ.Верхний.Текст = "Кнопа Нажата " + Счетчик + " раз.
	|Параметр[""Буратино""] = " + Параметр["Буратино"] + "
	|Параметр[""Карло""] = " + Параметр["Карло"] + "
	|Параметр[""Дуремар""] = " + Параметр["Дуремар"] + "
	|Параметр[""Тортила""] = " + Параметр["Тортила"];
	
	Буратино = Параметр["Буратино"];
КонецПроцедуры

Процедура Кнопка1_Нажатие() Экспорт
	Счетчик = Счетчик + 1;
	АргументыСобытия1 = ТФ.АргументыСобытия;
	Параметр = АргументыСобытия1.Параметр;
	ТФ.Верхний.Текст = "Кнопа Нажата " + Счетчик + " раз.
	|Параметр[""Буратино""] = " + Параметр["Буратино"] + "
	|Параметр[""Карло""] = " + Параметр["Карло"] + "
	|Параметр[""Дуремар""] = " + Параметр["Дуремар"] + "
	|Параметр[""Тортила""] = " + Параметр["Тортила"];
КонецПроцедуры

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

Счетчик = 0;

Кнопка1 = ТФ.Кнопка();
Кнопка1.Текст = "Нажми меня";
Кнопка1.Икс = ТФ.Позиция.Центр();
Кнопка1.Игрек = ТФ.Позиция.Центр();
Кнопка1.Высота = ТФ.Величина.Абсолютно(3);
ТФ.Верхний.Добавить(Кнопка1);

Структура1 = Новый Структура("Буратино","Деревянная кукла, наивная, добродушная и озорная.");
Структура1.Вставить("Карло", "Шарманщик, который вырезал Буратино из полена.");
Структура1.Вставить("Дуремар", "Продавец лечебных пиявок и друг Карабаса.");
Структура1.Вставить("Тортила", "Добрая черепаха, которая подарила Буратино золотой ключик.");

Действие1 = ТФ.Действие();
Действие1.ИмяМетода = "Кнопка1_Нажатие";
Действие1.Параметр = Структура1;
Действие1.Сценарий = ЭтотОбъект;
Кнопка1.Нажатие = Действие1;

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии", Структура1);
ТФ.ЗапуститьИЗавершить();

Сообщить(?(
Действие1.ИмяМетода = "Кнопка1_Нажатие"
, "", "!!! ") + "Действие.ИмяМетода (Action.MethodName) Свойство" + " " + ТекущаяДата() + Символы.ПС);