Курсоры.Имя (Cursors.Name) Свойство

Копировать

Перем Ф,  ТекущийКурсор, Кнопка1;

Процедура Кнопка1_Нажатие() Экспорт
    Если ТекущийКурсор = "Ладонь" Тогда
        Кнопка1.Курсор = Ф.Курсоры().Перекрестие;
        ТекущийКурсор = "Перекрестие";
    ИначеЕсли ТекущийКурсор = "Перекрестие" Тогда
        Кнопка1.Курсор = Ф.Курсоры().Ладонь;
        ТекущийКурсор = "Ладонь";
    КонецЕсли;
КонецПроцедуры

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

Кнопка1 = Форма1.ЭлементыУправления.Добавить(Ф.Кнопка());
Кнопка1.Положение = Ф.Точка(10, 10);
Кнопка1.Ширина = 250;

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

Кнопка1.Курсор = Ф.Курсоры().Ладонь;
ТекущийКурсор = "Ладонь";

Курсоры1 = Ф.Курсоры();
Курсоры1.Имя = "Курсоры1";
Сообщить("Курсоры1.Имя = " + Курсоры1.Имя);

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

Копировать

Перем Ф,  ТекущийКурсор, Кнопка1;

Процедура Кнопка1_Нажатие() Экспорт
    Если ТекущийКурсор = "Ладонь" Тогда
        Кнопка1.Курсор = Ф.Курсоры().Перекрестие;
        ТекущийКурсор = "Перекрестие";
    ИначеЕсли ТекущийКурсор = "Перекрестие" Тогда
        Кнопка1.Курсор = Ф.Курсоры().Ладонь;
        ТекущийКурсор = "Ладонь";
    КонецЕсли;
КонецПроцедуры

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

Кнопка1 = Форма1.ЭлементыУправления.Добавить(Ф.Кнопка());
Кнопка1.Положение = Ф.Точка(10, 10);
Кнопка1.Ширина = 250;

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

Кнопка1.Курсор = Ф.Курсоры().Ладонь;
ТекущийКурсор = "Ладонь";

Курсоры1 = Ф.Курсоры();
Курсоры1.Имя = "Курсоры1";

Сообщить(?(Курсоры1.Имя = "Курсоры1", "", "!!! ") + "Курсоры.Имя (Cursors.Name) Свойство" + " " + ТекущаяДата());