Итак, пока что ситуация не очень хорошая… Попробовал несколько вариантов, но ни один не подошел на 100%.
1. Сохранять текст перед первым поиском а потом восстанавливать его.
В этом случае из TWebBrowser пропадает вся графика, анимация (flash) и т.д. Этот вариант не подходит.
2. Делать поиск "ранее найденного текста" и восстанавливать его первоначальное состояние.
Все бы хорошо, но метод
tr.findText не ищет тэги, так что найти конструкцию типа
'<span style="color: red; font-weight: bolder;">SearchText</span>' невозможно. Этот вариант тоже не подходит.
3. Обновлять страницу перед повторным поиском.
Работает как надо, но главный недостаток этого метода в том, что он по новой грузит страницу. Этот подход я привел в примере - вводишь текст в Edit и жмешь на Enter.
4. Воспользоваться стандартным диалогом поиска.
Этот подход я тоже привел в примере - жми на кнопку "Поиск";
Browser.zip