CB6中使用浏览器控件的一些操作[6]

        system::delphiinterface<ihtmlelement2> htmlelem2;

        disp = this->cppwebbrowseraddfriend->document;
        if(!disp)
                return;

        htmldoc2 = disp;
        htmldoc2->get_body(&htmlelem);
        htmlelem2 = htmlelem;

        tvariant vt;
        vt = cfunctionobject<tfrmaddfriend>::createeventfunctionobject(this,&tfrmaddfriend::maskevt,0);
        htmlelem->put_onselectstart(vt);
        htmlelem2->put_oncontextmenu(vt);
}

void tfrmaddfriend::setbrowserstyle(void)
{
        //todo: add your source code here
        _di_idispatch disp;
        system::delphiinterface<ihtmldocument2> htmldoc2;
        system::delphiinterface<ihtmlelement> htmlelem;
        system::delphiinterface<ihtmlbodyelement> htmlbody;
        system::delphiinterface<ihtmlstyle> htmlsty;

        disp = this->cppwebbrowseraddfriend->document;
        if(!disp)
                return;

        htmldoc2 = disp;
        htmldoc2->get_body(&htmlelem);
        htmlbody = htmlelem;
        htmlbody->put_scroll(widestring("no"));
        htmlelem->get_style(&htmlsty);
        htmlsty->put_border(widestring("none"));
}

void tfrmaddfriend::releasehook(void)
{
        //todo: add your source code here
        _di_idispatch disp;
        system::delphiinterface<ihtmldocument2> htmldoc2;
        system::delphiinterface<ihtmlelementcollection> htmlelemcoll;
        system::delphiinterface<ihtmlelement> htmlelem;
        system::delphiinterface<ihtmlelement2> htmlelem2;

        disp = this->cppwebbrowseraddfriend->document;
        if(!disp)
                return;

        htmldoc2 = disp;
        htmldoc2->get_all(&htmlelemcoll);
        htmlelemcoll->item(tvariant("moveform"),tvariant(0),&disp);

        htmlelem = disp;

        variant varnull;
        varnull.vt = vt_null;
        htmlelem->put_onmousedown(varnull);

        htmldoc2->get_body(&htmlelem);
        htmlelem->put_onselectstart(varnull);
        htmlelem->put_onclick(varnull);
        htmlelem->put_onkeypress(varnull);

        htmlelem2 = htmlelem;
        htmlelem2->put_oncontextmenu(varnull);
}

ansistring tfrmaddfriend::getinputvalue(ansistring itemname)
{
        //todo: add your source code here
        ansistring rtn = "";

        _di_idispatch disp;
        system::delphiinterface<ihtmldocument2> htmldoc2;
        system::delphiinterface<ihtmlelement> htmlelem;
        system::delphiinterface<ihtmlelementcollection> htmlelemcoll;

        disp = this->cppwebbrowseraddfriend->document;