Hallo Leute!
Ich wollte eine
HTML-Datei scrollen lassen und sobald das Ende erreicht ist, soll diese wieder von oben anfangen zu scrollen.
Folgende Testprozedur habe ich:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
WebBrowser1.OleObject.Document.ParentWindow.ScrollTo(0,browser_y);
if NOT (browser_y+1>WebBrowser1.OleObject.Document.Body.ScrollHeight) then
browser_y:=browser_y+1
else if (browser_y=WebBrowser1.OleObject.Document.Body.ScrollHeight) then
browser_y:=0
else
browser_y:=WebBrowser1.OleObject.Document.Body.ScrollHeight;
Label3.Caption:=IntToStr(WebBrowser1.OleObject.Document.Body.ScrollHeight);
Label4.Caption:=IntToStr(browser_y);
Timer1.Interval:=50;
end;
Das Problem ist, dass die Scrollhöhe leider nicht das gewünschte Ergebnis liefert, da diese leider nicht das genaue Ende des Scrollens angibt. Ich möchte aber, sobald die Scrollbar das untere Ende erreicht hat, dass diese wieder direkt nach oben springen soll!
Hat dort jemand eine Idee?