WebBrowser不显示滚动条的方法

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
    WebBrowser1.OleObject.Document.Body.Scroll := 'no';
    WebBrowser1.OleObject.Document.Body.style.border := 'none';
    webbrowser1.OleObject.Document.Body.Style.margin := '0px';

end;

 

说明:本质是上通过修改WEB页的属性达到目的,一旦刷新页面,滚动条就会重新出现.