Интерактивное удаление по клавише Del

[greenLiss]

Добрый вечер!
Есть справочник, нужно сделать так, что бы при нажатии на клавишу DELETE(в форме списка) предлагалось не пометить элемент на удаление, а непосредственно удалить. Как это сделать, а то я не знаю? 

[Dethmontt]

Shift+Del

[greenLiss]

Shift+Del

Вы наверное не в эту тему хотели написать, или вопрос не внимательно читаете... 
Вопрос был не "Какие клавиши выполняют интерактивное удаление ?", а "Как сделать интерактивное удаление по клавише delete ?"

[Dethmontt]

Как вариант могу предложить такую реализацию

Код Выделить Развернуть

Процедура ПередЗаписью(Отказ) //В модуле объекта

Если ПометкаУдаления Тогда
   
    ПодключитьОбработчикОжидания("ОбработчикУдалениеОбъекта",0.1,Истина);

КонецПроцедуры

//Процедура общего глобального модуля
Процедура ОбработчикУдалениеОбъекта() Экспорт

Запрос = Новый Запрос("ВЫБРАТЬ
                      | МойСправочник.Ссылка
                      |ИЗ
                      | Справочник.МойСправочник КАК МойСправочник
                      |ГДЕ
                      | МойСправочник.ПометкаУдаления");
 
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Объект = Выборка.Ссылка.ПолучитьОбъект();
Попытка
Объект.Удалить();
Исключение
#Если Клиент тогда
Сообщить(ОписаниеОшибки());
#КонецЕсли
КонецПопытки;
КонецЦикла;

КонецПроцедуры

[Slin]

лучше действовать через параметр сеанса, наверное
вот если бы еще можно было бы изменить стандартное сообщение

[greenLiss]

.

Добавлено: 07 мар 2013, 13:30

Спасибо, код работает, если не считать

Код Выделить Развернуть

ПодключитьОбработчикОжидания на сервере.
И правда, буду делать через параметры сеанса
Всем спасибо

[Dethmontt]

Спасибо, код работает, если не считать

Вы же нифига не пишете релиз платформы и конфигурацию!!! Приходиться телепатировать!!!

[greenLiss]

Спасибо, код работает, если не считать

Вы же нифига не пишете релиз платформы и конфигурацию!!! Приходиться телепатировать!!!

Искренне прошу прощения