Foros Club Delphi - Buscar texto en WebBrowser

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)

- - Buscar texto en WebBrowser (https://www.clubdelphi.com/foros/showthread.php?t=8287)

Buscar texto en WebBrowser

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!!!
:)

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

Código:

{

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

Perdonad las molestias

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

Gracias por responderme MarcosZorrilla!!!