🚀 go-pugleaf

Thank you all. I was able to construct something that actually works. :-)

Here it is:

#include <mshtmhst.h>

void __fastcall TCSEQEForm::WBOptionsFindClick(TObject *Sender) {
 if( (WB) && (WB->Document) && 
(WB->ReadyState==Shdocvw_tlb::READYSTATE_COMPLETE) ) {
  TComInterface<IOleCommandTarget> CmdTarget;
  if 
(SUCCEEDED(WB->Document->QueryInterface(IID_IOleCommandTarget,(LPVOID*)&CmdTarget)) 
 )
   CmdTarget->Exec(&CGID_WebBrowser, HTMLID_FIND, 0, NULL, NULL);
   CmdTarget->Release();
 }
}

-- 
Albert Wiersch
http://www.htmlvalidator.com/


"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message 
news:421c5106$1@newsgroups.borland.com...
>
> "Albert Wiersch" <mrinternetnewsborland@wiersch.com> wrote in message
> news:421be1c2$1@newsgroups.borland.com...
>
>> Just found this. If I can translate it to CPP I think it should work:
>> http://members.shaw.ca/iedelphi/webbrowser.htm#advanced2
>
>    #include <utilcls.h>
>
>    const DWORD HTMLID_FIND = 1;
>    const GUID CGID_WebBrowser = {0xED016940, 0xBD5B, 0x11CF, {0xBA, 0x4E,
> 0x00, 0xC0, 0x4F, 0xD7, 0x08, 0x16}};
>
>    void __fastcall TForm1::FindIE()
>    {
>        if( (WebBrowser1->Document) && (WebBrowser->ReadyState ==
> READYSTATE_COMPLETE) )
>        {
>            TComInterface<IOleCommandTarget> CmdTarget;
>            if(
> SUCCEEDED(WebBrowser1->Document->QueryInterface(IID_IOleCommandTarget,
> (LPVOID*)&CmdTarget)) )
>                CmdTarget->Exec(&CGID_WebBrowser, HTMLID_FIND, 0, NULL,
> NULL);
>        }
>    }
>
>
> Gambit
>
>