[delphi] przewijanie webbrowser

0

Czy zna ktos sposob by webbrowser byl zawsze przewiniety na sam dol? tworze komunikator i wlasnie tego uzywam jako wyswietlacza ... wszystko jest ok, ale jak nadejdzie wiadomosc to webbrowser odswierza sie, a jednoczesnie przewija na sama gore co baardzo denerwuje [diabel] ofk szukalem na forum, ale nigdzei tego nie znalazlem :( help plz

1

jedyne co mi przychodzi na mysl to przesuwanie o b.duza wartosc:

uses
OleCtrls,SHDocVw


WebBrowser1.Oleobject.Document.ParentWindow.ScrollBy(0,900);
//(lewo, gora)
0

Jest na to odrobinę bardziej elegancki i co nieco niezawodniejszy sposób :).

Output.OleObject.Document.Body.ScrollTop:=ScrollOffset*(Output.OleObject.Document.Body.ScrollHeight-Output.Height) div 100;

ScrollOffset to zmienna, przyjmująca w tym przypadku wartości 0-100, służy do procentowego wskazania przewinięcia strony. Przerobienie tego na przewijanie do końca, to już banał. Do uses dodaj jeszcze takie moduły:

OleCtrls, SHDocVw, MSHTML

Być może któryś jest niepotrzebny, ale nie chce mi się teraz tego sprawdzać.

0

wszystko pieknie ale ja nie mam plikow SHDocVw.dcu ani MSHTML.dcu a bez tych w uses kod nie dziala :( uzywam delphi 6 personal. Sa moze jakies inne pomysly? lub pomysl skad te pliki wziac ... lub tez moze zna ktos inny komponent ktory by mogl sluzyc za wyswietlacz? tzn chodzi mi o to by mozna bylo wstawiac obrazki, kolorowac skladnie ... tylko nie mowcie "Rysuj na czyms canvasem" [sciana] :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1