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

        htmlwnd2->get_event(&htmlevt);

        htmlevt->get_srcelement(&htmlelem);

        widestring _tag;

        htmlelem->get_tagname(&_tag);

        long btn,_x,_y;
        htmlevt->get_button(&btn);
        htmlevt->get_screenx(&_x);
        htmlevt->get_screeny(&_y);

        if(_tag == widestring("td") && btn == 1)
        {
                ::releasecapture();
                ::sendmessage(handle,wm_nclbuttondown,htcaption,makelparam(_x,_y));
        }
        pvarresult->vt = vt_bool;
        pvarresult->boolval = false;
}

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

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

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

        tvariant onfrmmosusedown;
        onfrmmosusedown = cfunctionobject<tfrmaddfriend>::createeventfunctionobject(this,&tfrmaddfriend::moveformevt,0);
        htmlelem->put_onmousedown(onfrmmosusedown);
}

void tfrmaddfriend::maskevt(dispid id, variant* pvarresult)
{
        //todo: add your source code here
        _di_idispatch disp;
        system::delphiinterface<ihtmldocument2> htmldoc2;
        system::delphiinterface<ihtmlwindow2> htmlwnd2;
        system::delphiinterface<ihtmleventobj> htmlevt;
        system::delphiinterface<ihtmlelement> htmlelem;

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

        htmldoc2 = disp;
        htmldoc2->get_parentwindow(&htmlwnd2);
        htmlwnd2->get_event(&htmlevt);

        htmlevt->get_srcelement(&htmlelem);

        widestring _tag;

        htmlelem->get_tagname(&_tag);
        if(_tag == widestring("input"))
                return;

        pvarresult->vt = vt_bool;
        pvarresult->boolval = false;
}

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