![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Muchas gracias por las molestias, si consigo algo que funcione lo posteare aqui enseguida.
|
#2
|
|||
|
|||
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... Código:
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; ![]() |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
TWebBrowser | Rockin | Internet | 2 | 27-11-2007 20:41:29 |
TWebBrowser sin URL | rafa_adrim | Internet | 1 | 20-10-2006 18:02:05 |
TWebBrowser | albertoP | Internet | 0 | 28-04-2006 21:04:24 |
Impedir mover el form y redimensionar al mover barra tareas | jealousy | API de Windows | 0 | 15-06-2004 12:58:05 |
TWebBrowser | RoyTan | Internet | 4 | 27-10-2003 22:06:09 |
![]() |
|