去除边框和滚动条

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