去除边框和滚动条

 1 void __fastcall TForm1::SetBrowserStyle()
 2 {
 3     _di_IDispatch disp = CppWebBrowser1->Document;
 4     if(disp == NULL) return;
 5 
 6     //这是什么样式的定义?!我也不知道,但是可以正常编译
 7     //还有种C++样式的定义在例子2中,不过把_di_IDispatch类型直接赋给IHTMLDocument2类型
 8     //就会有错误,可以在IHTMLDocument2变量强制转换为void *就可以了
 9     //在这里不用:
10     System::DelphiInterface<IHTMLDocument2> htmldoc2;
11     System::DelphiInterface<IHTMLElement> htmlelem;
12     System::DelphiInterface<IHTMLBodyElement> htmlbody;
13     System::DelphiInterface<IHTMLStyle> htmlsty;
14 
15     htmldoc2 = disp;
16     htmldoc2->get_body(&htmlelem);
17 
18     htmlbody = htmlelem;
19     htmlbody->put_scroll(WideString("no"));
20     //htmlbody->put_background(L"D:\\My Documents\\My Pictures\\logo.gif");
21 
22     htmlelem->get_style(&htmlsty);
23     htmlsty->put_border(WideString("none"));
24 
25     //下面是释放内存,不知道为何很多人不用,如果打开CodeGuard,不释放就会有错误
26     htmldoc2->Release();
27     htmlelem->Release();
28     htmlbody->Release();
29     htmlsty->Release();
30 }
31 
32 本文转自csdn