VPF::TWebBrowser - Форум программистов

Lomik

Дата 15.10.2004, 11:28 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Не подскажете, как организовать поиск текста в TWebBrowser, не вызывая при этом стандартный диалог "Find"? Нужно искать текст, который введен в мой Edit. Как это сделать?

Alex

Дата 15.10.2004, 18:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Код

{....}  

  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;  

procedure TForm1.Button1Click(Sender: TObject);  
begin  
  SearchAndHighlightText('some text...');  
end;

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Lomik

Дата 19.10.2004, 16:04 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Эта процедура работает некорректно. Иногда выделяет всю страницу и т.п. Дайте рабочий код, умоляю!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »