如何用代码平滑滚动WebBrowser中的内容？

Question

主要是实现上移、下移

Answer 1

//参考如下代码
uses MSHTML;procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := False;
  Timer1.Interval := 100;
  WebBrowser1.Navigate(
'http://community.csdn.net/Expert/topic/3905/3905186.xml?temp=6.376284E-02');
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not Assigned(WebBrowser1.Document) then Exit;
  with (WebBrowser1.Document as IHTMLDocument2) do
    parentWindow.scroll(0, (body as IHTMLElement2).scrollTop + 1);
end;procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Timer1.Enabled := True;
end;

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered :=True;
end;