FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Mover TWebBrowser
Hola!, alguien sabe como puedo mover una pagina web que esta mostrandose en un componente TWebBrowser por codigo?
Es decir la pagina se muestra, pero como no cabe toda lo que pretendo es mostrar la parte inferior derecha de la misma. He intentado con la funcion perform y luego con SetScrollInfo de la api que recomiendan en la ayuda, pero nada, no hay manera de mover las barras de scroll por codigo... Si alguien sabe alguna manera de poder ver la esquina inferior derecha (o cualquier parte), en lugar de la superior izquierda, le estaria muy agradecido... Perdonad por como lo he escrito pero son casi las 4 a.m. y estoy que me caigo de sueño... |
#2
|
||||
|
||||
Hola,
Encontré cierta página en Internet que trata de dar una solución. Haciendo pruebas veo que no funciona todo lo bien que podría esperarse, pero, por ahí pueden ir los tiros, tal vez puedas avanzar más en el asunto, o bien algún compañero o tú mismo puedas encontrar otra solución... |
#3
|
|||
|
|||
Muchas gracias por las molestias, si consigo algo que funcione lo posteare aqui enseguida.
|
#4
|
|||
|
|||
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; |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
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 |
|