TWebBrowser, выделение текста в нужном месте. [D7, XP]
Wood © (2008-09-19 10:07:00)
Добрый день(ночь).
Уважаемые мастера, помогите, кто чем может...))
Как программно выделить часть текста в TWebBrowser методом
select?
Имеется загруженный в TWebBrowser текст HTML (документ) ч/з
"about:". В документе есть повторяющейся текст. Допустим, список
этих повторяющихся строк текста загружен в листбокс. Чтобы находить
его в дальнейшем по клику в листбоксе, в документ прописываются
теги идентификаторы <P ID=[ID_текста]>.
При клике:
IHTMLElement:
if AnsiSameText(Tag.id, Id) - получаем элемент (IDispatch)
scrollIntoView() - прокручиваем страницу к нему.
Все чудесно работает. Но хотелось бы, кроме прочего, выделить
текст (select) на страничке (innerText этого элемента).
Создаю IHTMLTxtRange, его метод FindText() находит первое
вхождение...
Вот здесь я застрял капитально:( На ночь глядя очередной раз
перечитал MSDN и понял, что ничего не понял, т.е. не нашел что,
кому и как нужно передать, образно говоря, индекс, чтобы выделение
(select) innerText элемента произошло, там где его нашел
scrollIntoView().
При поиске элемента for I := 0 to Pred(Tags.length) получаем
некий индекс IHTMLElementCollection (I). Можно ли его как-нибудь
использовать для поиска и выделения текста в нужном месте?
Спасибо.
Wood (2008-09-19 11:25:00) [1]
А ларчик просто открывался))
IHTMLTxtRange.moveToElementText(IHTMLElement)
Вопрос снят.
Наверх 
ЧАТ |
Орешник |
|
