.NET (2)
Database (71)
Delphi IDE (90)
Network (39)
Printing (3)
Strings (12)
VCL (83)
Windows with Delphi (280)
Exchange Links
About this site
| |
 |
Scroll a TWebBrowser document to the top/ bottom/ right
3 comments. Current rating: 
(2 votes). Leave comments and/ or rate it.
Question:
My application uses TWebBrowser and I need to load a document and then have TWebBrowser scroll to the bottom of the document. How can I achieve this?Answer:
Create an event on OnDocumentComplete event TForm1.WebBrowser1DocumentComplete() and put this code in there:WB_ScrollTo(WebBrowser1, wbPosBottom);
 |  | |
// Scroll to the Bottom, Top, Right of the Document:
type
TWBPosition = (wbPosBottom, wbPosTop, wbPosRight);
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);
end;
end;
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
WB_ScrollTo(WebBrowser1, wbPosBottom);
end;
| ||
 |  |
Comments:
