Discussion :

[tintin22]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Sub0]

Le message WM_SCROLL semble convenir :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

WebBrowser1.Perform(WM_VSCROLL, SB_TOP, 0);

On peut le faire avec les messages windows aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tintin22]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et ensuite de l'appeler de cette manière

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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