在网上看到这样的语句: WebBrowser1.OleObject.Document.Body.Style.OverflowX := 'hidden';
WebBrowser1.OleObject.Document.Body.Style.OverflowY := 'hidden';
或
var
DOM:Variant;
begin
DOM:=WebBrowser1.Document;
DOM.Body.Style.OverflowX := 'hidden';
DOM.Body.Style.OverflowY := 'hidden';
end;但我没有调试成功,是什么原因?
怎么解决去掉ScrollBars的问题,谢谢!
WebBrowser1.OleObject.Document.Body.Style.OverflowY := 'hidden';
或
var
DOM:Variant;
begin
DOM:=WebBrowser1.Document;
DOM.Body.Style.OverflowX := 'hidden';
DOM.Body.Style.OverflowY := 'hidden';
end;但我没有调试成功,是什么原因?
怎么解决去掉ScrollBars的问题,谢谢!
WebBrowser1.OleObject.document.body.scroll:='no'; 你也可以这么写,可能程序会更清晰一些
uses
MSHTML;
(WebBrowser1.Document as IHTMLDocument2).body.setAttribute('scroll','no',0);
在onDocumentComplete中加入:
doc:=IHTMLDocument2(Webbrowser1.Document);
if(doc<>nil) then
begin
item:=doc.body;
if(item<>nil) then
item.style.borderstyle:='none'
end;