Mover TWebBrowser

[Archer]

Los fallos que comentan a mi no se me han dado porque el scroll que necesito hacer es minimo... supongo que si la pagina es muy grande abra que aumentar los valores de desplazamiento: ParentW.Screen.Height

En fin, he añadido wbPosBottomRight que es lo que yo queria hacer y como a mi me hace la funcion de momento lo dejo asi...

type
   TWBPosition = (wbPosBottom, wbPosTop, wbPosRight, wbPosBottomRight);
 
 
 function WB_ScrollTo(WB: TWebBrowser; Position: TWBPosition): Boolean;
 var
   ParentW: OLEVariant;
 begin
   Result := WB.Document <> nil;
   if Result then
   begin
     ParentW := WB.OleObject.Document.ParentWindow;
     case Position of
       wbPosBottom: ParentW.ScrollTo(0, ParentW.Screen.Height);
       wbPosTop: ParentW.ScrollTo(0, 0);
       wbPosRight: ParentW.ScrollTo(ParentW.Screen.Width, 0);
       wbPosBottomRight: ParentW.ScrollTo(ParentW.Screen.Width, ParentW.Screen.Height);
     end;
   end;
 end;

procedure TForm1.WBDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  WB_ScrollTo(WB, wbPosBottomRight);
end;

Muchas gracias de nuevo por el enlace!!