поиск по TWebBrowser

[OST_K]

на форме Edit1 для задания текста который нужно найти и Button1 - кнопка поиска и WebBrowser1 где нужно осушествлять поиск
или как можно осуществить через FindDialog чтоб искал в WebBrowser1

[Виталий Желтяков]

Что искал? Текст?

[OST_K]

да текст заданый в Edit1

[Виталий Желтяков]

Самое простое решение:
- Парсим код загруженой в webbowser-е страницы:

//---------------------- Процедура получения текста страницы -----------------//
procedure GetTextPage;
var
  Doc: IHTMLDocument2;
  CurrentWB: TEmbeddedWB;
begin
  CurrentWB := Form1.WebBrowser1;
  if Assigned(CurrentWB) then
    begin
      Doc := CurrentWB.Document as IHTMLDocument2;
      if Assigned(doc) then
        begin
          Form1.Memo1.Lines.Text := (Doc.all.Item(NULL, 0) as IHTMLElement).OuterHTML;
        end;
    end;
end;
//----------------------------------------------------------------------------//

- делаем замену текста ("искомый текст" -><b>"искомый текст"</b>)
- задаем код загруженой страницы по аналогии пункта 1.