TwebBrowser - поиск и подсветка текста

[kta87]

Пытаюсь реализовать поиск текста с подсветкой, загружая в TwebBrowser html документ следующим образом

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Edit1: TEdit;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    procedure SearchAndHighlightText(aText: string);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 SearchAndHighlightText(Edit1.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 if OpenDialog1.Execute then WebBrowser1.Navigate(OpenDialog1.FileName);
end;

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;
end.

Однако происходит подсветка не найденного текста, а всего документа! Подскажите что подправить в этой связи? (Delphi XE2)

[=master=]

посмотрите что находится в InnerText.
и где конкретно вам надо искать, например надпись на кнопке содержит искомое, выделять надо? и т.д.

[kta87]

=master=, выделять нужно везде, где есть совпадения... Можно по подробнее.. я сегодня 1 раз работаю с компонентом TwebBrowser

[kta87]

Ну собственно up! Не могу разобраться с поиском по тексту... приведите пример если не трудно..! или помогите подправить мне код, что я написал в 1 посте!

[daaa]

Сообщение от kta87

Ну собственно up! Не могу разобраться с поиском по тексту... приведите пример если не трудно..! или помогите подправить мне код, что я написал в 1 посте!

kta87 ,разобрался с поиском? та же проблема,нужен поиск по Webbrowser, нашел несколько вариантов том числе и этот но так нормально и не работает...