СсылкаНажатаАрг.ТекстСсылки (LinkClickedEventArgs.LinkText) Свойство

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

Перем Ф;

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

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

ФорматированноеПолеВвода1 = Форма1.ЭлементыУправления.Добавить(Ф.ФорматированноеПолеВвода());
ФорматированноеПолеВвода1.Стыковка = Ф.СтильСтыковки.Заполнение;
ФорматированноеПолеВвода1.ДобавитьТекст(Символы.ПС + "www.scriptcoding.ru");
ФорматированноеПолеВвода1.СсылкаНажата = Ф.Действие(ЭтотОбъект, "ФорматированноеПолеВвода_СсылкаНажата");
	
Ф.ЗапуститьОбработкуСобытий();

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

Перем Ф, Аргументы1_ТекстСсылки, Форма1;

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

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

ФорматированноеПолеВвода1 = Форма1.ЭлементыУправления.Добавить(Ф.ФорматированноеПолеВвода());
ФорматированноеПолеВвода1.Стыковка = Ф.СтильСтыковки.Заполнение;
ФорматированноеПолеВвода1.ДобавитьТекст(Символы.ПС + "www.scriptcoding.ru");
ФорматированноеПолеВвода1.СсылкаНажата = Ф.Действие(ЭтотОбъект, "ФорматированноеПолеВвода_СсылкаНажата");

Если Ф.ПлатформаWin Тогда
	Словарь1 = Ф.Словарь();
	Словарь1.Добавить("ТекстСсылки", "www.scriptcoding.ru");
	Ф.ВызватьСобытие(ФорматированноеПолеВвода1, "СсылкаНажата", Словарь1);
	
	Сообщить(?(
	Аргументы1_ТекстСсылки = "www.scriptcoding.ru"
	, "", "!!! ") + "СсылкаНажатаАрг.ТекстСсылки (LinkClickedEventArgs.LinkText) Свойство" + " " + ТекущаяДата());
Иначе
	Сообщить(?(
	Истина
	, "", "!!! ") + "СсылкаНажатаАрг.ТекстСсылки (LinkClickedEventArgs.LinkText) Свойство" + " " + ТекущаяДата());
КонецЕсли;