Webbrowser Scroll- Problem

[Volker Z.]

Hallo,

per JavaScript (habe mir das nicht im Einzelnen angesehen) wird die Seite wohl soweit gerendert, dass es mit ScrollBy nicht mehr funktioniert.
Mit JavaScript wird ein DIV-Container (id="c_base") erzeugt, der dann das Formular enthält.

Du kannst mal folgendes versuchen:

Delphi-Quellcode:

procedure TForm1.ScrollBy (const DeltaX, DeltaY: Integer);
var
  d : IHTMLDocument3;
  e : IHTMLElement;
  c : IHTMLElement2;
begin
  if not Assigned (WebBrowser1.Document) then
    Exit;

  d := WebBrowser1.Document as IHTMLDocument3;
  if not Assigned (d) then
    Exit;

  e := d.getElementById ('c_base');
  if Assigned (e) then
    begin
      c := e as IHTMLElement2;
      if Assigned (c) then
        begin
          c.scrollTop  := c.scrollTop + DeltaY;
          c.scrollLeft := c.scrollLeft + DeltaX
        end;

      Exit
    end;

  WebBrowser1.OleObject.Document.ParentWindow.ScrollBy (DeltaX, DeltaY)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ScrollBy (0, 50)
end;

Funktioniert natürlich nur solange der Container über die id c_base referenziert werden kann.

Gruß