A
Alexis
Доброго времени суток!
Есть одна интересная задача - в обработке для 1С 8.1 надо написать процедуру, которая бы при двойном щелчке по надписи в окне копировало бы текст надписи в буфер обмена. Эта процедура должна работать с минимальными правами. Я попробовал вот это:
Процедура ВставитьТекстВБуферОбмена(СодержимоеВБуферОбмена) Экспорт
#Если Клиент Тогда
Если (ТипЗнч(СодержимоеВБуферОбмена) = Тип("Строка")) И (СокрЛП(СодержимоеВБуферОбмена) <> "") Тогда
Объект = Новый COMОбъект("htmlfile");
Объект.ParentWindow.ClipboardData.Setdata("Text", СодержимоеВБуферОбмена);
КонецЕсли;
#КонецЕсли
КонецПроцедуры
Почему-то эта процедура срабатывает два-три раза, а потом начинает выдавать ошибку. после выхода и повторного входа в обработку проблема исчезает, и снова появляется через несколько срабатываний. Как это исправить?
Есть одна интересная задача - в обработке для 1С 8.1 надо написать процедуру, которая бы при двойном щелчке по надписи в окне копировало бы текст надписи в буфер обмена. Эта процедура должна работать с минимальными правами. Я попробовал вот это:
Процедура ВставитьТекстВБуферОбмена(СодержимоеВБуферОбмена) Экспорт
#Если Клиент Тогда
Если (ТипЗнч(СодержимоеВБуферОбмена) = Тип("Строка")) И (СокрЛП(СодержимоеВБуферОбмена) <> "") Тогда
Объект = Новый COMОбъект("htmlfile");
Объект.ParentWindow.ClipboardData.Setdata("Text", СодержимоеВБуферОбмена);
КонецЕсли;
#КонецЕсли
КонецПроцедуры
Почему-то эта процедура срабатывает два-три раза, а потом начинает выдавать ошибку. после выхода и повторного входа в обработку проблема исчезает, и снова появляется через несколько срабатываний. Как это исправить?