Календарь.ДатаВыбрана (MonthCalendar.DateSelected) Свойство

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

Перем Ф, Календарь1;

Процедура Календарь1_ДатаВыбрана() Экспорт
    Сообщить("Выбрана дата = " + Календарь1.НачальнаяДата);
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Ширина = 600;
Форма1.Высота = 400;
Форма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;
Календарь1.Отображать = Истина;
Календарь1.ДатаВыбрана = Ф.Действие(ЭтотОбъект, "Календарь1_ДатаВыбрана");

Ф.ВызватьСобытие(Календарь1, "ДатаВыбрана");

Сообщить(?(Год(Календарь1.НачальнаяДата) = Год(ТекущаяДата()), "", "!!! ") + "Календарь.ДатаВыбрана (MonthCalendar.DateSelected) Свойство" + " " + ТекущаяДата());