高分求教，如何隐藏webbrowser控件的滚动条

Question

请教，如何隐藏webbrowser控件右边总有的进度条，好像没有属性可以隐藏！？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.OleObject.document.body.scroll := 'no';
end;

Answer 2

不过最好用下面的
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  WebBrowser1.OleObject.document.body.scroll := 'no';
end;