Buscar texto en WebBrowser

[ciscu]

Hola a todos!!!

Me gustaría saber cómo encontrar una palabra en un documento HTML reflejado en un WebBrowser y que remarque tal palabra cambiando de color o algo que destaque de las otras palabras.

¿Podéis ayudarme o darme alguna dirección web?

Es un poco urgente y me gustaría que me contestaseis entre hoy y mañana.

Gracias anticipadas!!!

[marcoszorrilla]

Son las 23:38, por lo tanto seguimos entre hoy y mañana, mira este código a ver si te puede servir:

{
Here's how to call a stadard IE find dialog
for the TWebBrowser component.

Usage: Simply drop an instance of TWebBrowser
component on a form (and a Button) and call 
the find dialog as:

uses ActiveX;

procedure WBFindDialog(AWebBrowser: TWebbrowser);
const
 CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
 HTMLID_FIND = 1;

var
 CmdTarget : IOleCommandTarget;
 vaIn, vaOut: OleVariant;
 PtrGUID: PGUID;
begin
 New(PtrGUID);
 PtrGUID^ := CGID_WebBrowser;
 if AWebBrowser.Document <> nil then
   try
     AWebBrowser.Document.QueryInterface(IOleCommandTarget, CmdTarget);
     if CmdTarget <> nil then
       try
         CmdTarget.Exec(PtrGUID, HTMLID_FIND, 0, vaIn, vaOut);
       finally
         CmdTarget._Release;
       end;
   except
   end;
 Dispose(PtrGUID);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser1.Navigate('http://www.delphi.about.com');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 WBFindDialog(WebBrowser1);
end;

Un Saludo

[ciscu]

Perdonad mi "abuso" pero es que era de extrema urgencia, pero para otra ocacion lo tendré presente!!!

Gracias por responderme MarcosZorrilla!!!