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.