Чтение и запись.
Тип: Действие (Action).
Возвращает или задает код для выполнения, при щелчке ссылки в элементе управления.
НадписьСсылка1.СсылкаНажата = Ф.Действие(ЭтотОбъект, "НадписьСсылка1_СсылкаНажата");
Копировать Выделить всёПерем Ф; Процедура НадписьСсылка1_СсылкаНажата() Экспорт Аргументы = Ф.НадписьСсылкаСсылкаНажатаАрг(); Сообщить("Аргументы.Кнопка = " + Аргументы.Кнопка); // Аргументы.Кнопка = 1048576 Сообщить("Аргументы.Ссылка.Начало = " + Аргументы.Ссылка.Начало); // Аргументы.Ссылка.Начало = 70 КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); НадписьСсылка1 = Ф.НадписьСсылка(); Форма1.ЭлементыУправления.Добавить(НадписьСсылка1); НадписьСсылка1.Текст = "Пример гиперссылок:" + Символы.ПС + "Первая ссылка - www.kixforms.org." + Символы.ПС + "Вторая ссылка - oscript.io."; НадписьСсылка1.Границы = Ф.Прямоугольник(10, 10, 260, 100); НадписьСсылка1.СтильГраницы = Ф.СтильГраницы.Одинарная; НадписьСсылка1.СсылкаНажата = Ф.Действие(ЭтотОбъект, "НадписьСсылка1_СсылкаНажата"); КоллекцияСсылок1 = НадписьСсылка1.Ссылки; Ссылка1 = Ф.Ссылка(); Индекс1 = КоллекцияСсылок1.Добавить(Ссылка1); // Новая ссылка должна быть добавлена в коллекцию ссылок до установки каких либо её свойств. Ссылка1.Начало = 36; Ссылка1.Длина = 16; Ссылка2 = Ф.Ссылка(); Индекс2 = КоллекцияСсылок1.Добавить(Ссылка2); // Новая ссылка должна быть добавлена в коллекцию ссылок до установки каких либо её свойств. Ссылка2.Начало = 70; Ссылка2.Длина = 10; Ссылка2.Имя = "Ссылка2Имя"; Ф.ЗапуститьОбработкуСобытий();
Копировать Выделить всёПерем Ф; Процедура НадписьСсылка1_СсылкаНажата() Экспорт Аргументы = Ф.НадписьСсылкаСсылкаНажатаАрг(); Сообщить("Аргументы.Кнопка = " + Аргументы.Кнопка); // Аргументы.Кнопка = 1048576 Сообщить("Аргументы.Ссылка.Начало = " + Аргументы.Ссылка.Начало); // Аргументы.Ссылка.Начало = 70 КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); НадписьСсылка1 = Ф.НадписьСсылка(); Форма1.ЭлементыУправления.Добавить(НадписьСсылка1); НадписьСсылка1.Текст = "Пример гиперссылок:" + Символы.ПС + "Первая ссылка - www.kixforms.org." + Символы.ПС + "Вторая ссылка - oscript.io."; НадписьСсылка1.Границы = Ф.Прямоугольник(10, 10, 260, 100); НадписьСсылка1.СтильГраницы = Ф.СтильГраницы.Одинарная; НадписьСсылка1.СсылкаНажата = Ф.Действие(ЭтотОбъект, "НадписьСсылка1_СсылкаНажата"); КоллекцияСсылок1 = НадписьСсылка1.Ссылки; Ссылка1 = Ф.Ссылка(); Индекс1 = КоллекцияСсылок1.Добавить(Ссылка1); // Новая ссылка должна быть добавлена в коллекцию ссылок до установки каких либо её свойств. Ссылка1.Начало = 36; Ссылка1.Длина = 16; Ссылка2 = Ф.Ссылка(); Индекс2 = КоллекцияСсылок1.Добавить(Ссылка2); // Новая ссылка должна быть добавлена в коллекцию ссылок до установки каких либо её свойств. Ссылка2.Начало = 70; Ссылка2.Длина = 10; Ссылка2.Имя = "Ссылка2Имя"; Сообщить(?(НадписьСсылка1.СсылкаНажата.ИмяМетода = "НадписьСсылка1_СсылкаНажата", "", "!!! ") + "НадписьСсылка.СсылкаНажата (LinkLabel.LinkClicked) Свойство" + " " + ТекущаяДата());