Mega Code Archive

 

Categories / Delphi / Forms

 

How to retrieve information about the TWebBrowser control

Title: How to retrieve information about the TWebBrowser control procedure TForm1.infoClick(Sender: TObject); begin // Shows the URL of the current page displayed ShowMessage('URL: ' + TWebbrowser.OleObject.Document.Url); // Shows the Title of the current page displayed ShowMessage('Page Titel: ' + TWebbrowser.OleObject.Document.title); // Shows the Height, Width of the current page displayed ShowMessage('ScrollHeight: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ScrollHeight)); ShowMessage('ScrollWidth: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ScrollWidth)); // amount that the document has been scrolled down ShowMessage('ScrollTop: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ScrollTop)); ShowMessage('ScrollLeft: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ScrollLeft)); // Shows the physical height, width of the browser screen ShowMessage('ClientHeight: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ClientHeight)); ShowMessage('ClientWidth: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ClientWidth)); // Show the document referrer ShowMessage('Referer: ' + TWebbrowser.OleObject.Document.referrer); end;