|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - [решено] Поиск в TWebBrowser |
|
Delphi - [решено] Поиск в TWebBrowser
|
Новый участник Сообщения: 40 |
Профиль | Отправить PM | Цитировать Искал реализацию поиска с подсвечиванием по содержимому компонента TWebBrowser, но ничего толком рабочего так и нет. Ребята может у кого есть рабочий код ?
|
|
Отправлено: 22:27, 26-05-2011 |
Ветеран Сообщения: 1803
|
Профиль | Отправить PM | Цитировать Был такой пример (http://forum.xakep.ru/m_1585044/tm.htm).
Так ты ищешь линки: procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do Listbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i)); end; так ты ищешь и подсвечиваешь текст: {....} private procedure SearchAndHighlightText(aText: string); {....} procedure TForm1.SearchAndHighlightText(aText: string); var i: Integer; begin for i := 0 to WebBrowser1.OleObject.Document.All.Length - 1 do begin if Pos(aText, WebBrowser1.OleObject.Document.All.Item(i).InnerText) <> 0 then begin WebBrowser1.OleObject.Document.All.Item(i).Style.Color := '#FFFF00'; WebBrowser1.OleObject.Document.All.Item(i).ScrollIntoView(True); end; end; end; |
------- Отправлено: 00:18, 27-05-2011 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 40
|
Профиль | Отправить PM | Цитировать opel431, пример то был и я его уже видел Только почему он не работоспособен (( Точнее если слово есть подсвечивает весь текст? А ежели нету то и эффекта нет.
|
Отправлено: 18:03, 27-05-2011 | #3 |
Ветеран Сообщения: 1803
|
Профиль | Отправить PM | Цитировать Цитата ibmpc:
|
|
------- Последний раз редактировалось opel431, 28-05-2011 в 01:42. Отправлено: 00:40, 28-05-2011 | #4 |
Новый участник Сообщения: 40
|
Профиль | Отправить PM | Цитировать Самое смешное реализовывал поиск в TWEbBrowser и только недавно напоролся - при нажатии Ctrl+F появляется окно поиска от WebBrowser (Explorer) вполне рабочее и отлично подсвечивающее текст + весь стандартный функционал.
|
|
Отправлено: 15:17, 31-05-2011 | #5 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
CMD/BAT - [решено] Поиск, остановка процесса, поиск и замена файла на разных дисках | Gawr33 | Скриптовые языки администрирования Windows | 11 | 23-04-2011 23:09 | |
CMD/BAT - [решено] Поиск, остановка процесса, поиск и замена файлов на разных дисках | 4zz | Скриптовые языки администрирования Windows | 2 | 21-02-2011 16:07 | |
Как убрать из TWebBrowser всплывающие сообщения | IM13 | Программирование и базы данных | 3 | 26-07-2005 01:19 | |
TWebBrowser | JCooper | Программирование и базы данных | 2 | 09-03-2004 19:20 |
|