WebBrowser + Scrolling

Salut, Je voudrais faire un scrolling automatique du WebBrowser vers le bas de la page, j'ai trouvé ce bout de code mais il marche pas à 100 !!

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.WBDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var ParentW: OLEVariant; begin if WB.Document <> nil then begin ParentW := WB.OleObject.Document.ParentWindow; ParentW.ScrollTo(0, ParentW.Screen.Height); end; end;

---

Merci d'avance.

Le message WM_SCROLL semble convenir :

Citation:

---

SB_BOTTOM = Scroll à la fin.
SB_ENDSCROLL = Fin de scroll.
SB_LINEDOWN = Scroll une ligne en bas.
SB_LINEUP = Scroll une ligne en haut.
SB_PAGEDOWN = Scroll une page en bas.
SB_PAGEUP = Scroll une page en haut.
SB_THUMBPOSITION = Scroll à une position absolue.
La position courante est fournie dans le deuxième paramètre.
SB_THUMBTRACK = Glisse la boîte de scroll à une position specifiée.
La position courante est fournie par le deuxième paramètre.
SB_TOP = Scroll au début.

---

Utilise la méthode Perform pour effectuer l'action :

Code:

---

WebBrowser1.Perform(WM_VSCROLL, SB_TOP, 0);

---

On peut le faire avec les messages windows aussi :

Code:

---

SendMessage(WebBrowser1.Handle, WM_VSCROLL, SB_TOP, 0);

---

Merci Sub0 pour ta reponse, c'est ce que j'avais fait avec un Memo (pas sûr qu'il y avait SB_TOP,0) mais ça marchait pas avec le WebBrowser.
Au fait, je construis dynamiquement la page html dans le code et je mets à jour son contenu au fur et à mesure.
J'ai trouvé une astuce pour ceux que ça interesserait, c'est d'inserer une ancre à la fin de la page

Code:

---

</body><p><a name="#fin"</a>

---

et ensuite de l'appeler de cette manière

Code:

---

WebBrowser.Navigate('MaPage.htm#fin');

---