TWebBrowser scroll bar

I am sorry it's taken so long for you to get a reply.

If you haven't already discovered a solution, you might want to try this (shamelessly copied from an article at http://www.tamaracka.com):

In article <3C7AB74B.1080302@softwarevsi.com>, bryan@softwarevsi.com says...
> Hi
>
> I am using the TWebBrowser to display some HTML files that are on disk.
> I am always getting a scroll bar on the right side of the window, even
> if it is disabled.... I am setting the window size before loading the
> Html file, and there should not be any need for the scroll bar.
>
> Is there a way to hide the scroll bar on the right side of the window
> (and only this scroll bar)??
>

Check out how it's done here:

This will allow you to use two Speedbuttons for scrolling
your page:

procedure TForm1.FormShow(Sender: TObject);
begin
  // MUST navigate first
  WB.Navigate('http://www.borland.com');
end;

procedure TForm1.WBDocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
  // turn off scrollbars!
  while WB.ReadyState <> READYSTATE_COMPLETE do
    Application.ProcessMessages;
  // This is what turns the scrollbars off!
  WB.OleObject.document.body.style.overflowX := 'hidden';
  WB.OleObject.document.body.style.overflowY := 'hidden';
end;

procedure TForm1.sbUPClick(Sender: TObject);
begin
  // scrollup 100 pixels
  WB.OleObject.document.parentWindow.scrollBy(0,-100);
end;

procedure TForm1.sbDNClick(Sender: TObject);
begin
  // scrolldn 100 pixels
  WB.OleObject.document.parentWindow.scrollBy(0,100);
end;

Wes Peterson
Senior Software Engineer
Prestwood IT Solutions
http://www.prestwood.com