Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > TWebBrowser

Автор: Lomik 15.10.2004, 11:28

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

Автор: Alex 15.10.2004, 18:16

Код

{....}  

  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

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