Элемент.КлавишаДоступа (Element.AccessKey) Свойство

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

Перем Кнопка1;
Перем Абзац1;

Процедура Кнопка1_Нажатие() Экспорт
	Сообщить("Кнопка1.КлавишаДоступа = " + Кнопка1.КлавишаДоступа + "  " +  + ТекущаяУниверсальнаяДатаВМиллисекундах());
	Абзац1.Текст = "Кнопка1.КлавишаДоступа = " + Кнопка1.КлавишаДоступа + "  " +  + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\DeclarativeForms\DeclarativeForms\bin\Debug\DeclarativeForms.dll");
ДФ = Новый ДекларативныеФормы();
Форма1 = ДФ.Форма;
Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке.";

Блок1 = ДФ.Блок();
Блок1.Родитель = Форма1;
Блок1.Стиль.Высота = 20;

Блок2 = ДФ.Блок();
Блок2.Родитель = Форма1;

Кнопка1 = ДФ.Кнопка();
Кнопка1.Родитель = Блок2;
Кнопка1.Текст = "Это Кнопка1";
Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие", Новый Структура("Поле1","ЧтоТоТам"));
Кнопка1.КлавишаДоступа = "w";

Кнопка2 = ДФ.Кнопка();
Кнопка2.Родитель = Блок2;
Кнопка2.Текст = "Это Кнопка2";

Абзац1 = ДФ.Абзац();
Абзац1.Родитель = Форма1;
Абзац1.Стиль.Высота = 60;

ДФ.Выполнить(Кнопка1.Нажатие);

Форма1.Открыть();