🚀 go-pugleaf

"Brian Rasmusson" <br@XbitXberXry.com> wrote in message
news:433d23e8$1@newsgroups.borland.com...

> Does anyone have a small example of using scrollIntoView
> to scroll to a named anchor tag??

Here you go:

    #include <utilcls.h>
    #include <mshtml.h>

    void __fastcall TForm1::ScrollWBToAnchor(const WideString &AnchorName)
    {
        if( CppWebBrowser1->ReadyState == READYSTATE_COMPLETE )
        {
            TComInterface<IHTMLDocument2> Doc = (IDispatch*)
CppWebBrowser1->Document;
            if( Doc )
            {
                TComInterface<IHTMLElementCollection> Anchors;
                if( SUCCEEDED(Doc->get_anchors(&Anchors)) )
                {
                    TComInterface<IDispatch> Disp;
                    if( SUCCEEDED(Anchors->item(TVariant(AnchorName),
TVariant((int)0), &Disp)) )
                    {
                        TComInterface<IHTMLElement> Anchor = Disp;
                        if( Anchor )
                            Anchor->scrollIntoView(TVariant(true));
                    }
                }
            }
        }
    }


Gambit