Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
procedureTForm1.infoClick(Sender: TObject); begin
// Shows the URL of the current page displayed // Gibt die aktuell geladene URL des Webbrowsers aus ShowMessage('URL: ' + TWebbrowser.OleObject.Document.Url); // Shows the Title of the current page displayed // Gibt den Titel der Seite, die im Webbrowser ist aus ShowMessage('Page Titel: ' + TWebbrowser.OleObject.Document.title); // Shows the Height, Width of the current page displayed // zeigt an wie hoch, breit die Seite im TWebbrowser ist. ShowMessage('ScrollHeight: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ScrollHeight)); ShowMessage('ScrollWidth: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ScrollWidth)); // amount that the document has been scrolled down // Um wieviel das Dokumkent nach Unten gescrollt wurde 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 // Zeigt die Hohe, Breite des Anzeigebereichs ShowMessage('ClientHeight: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ClientHeight)); ShowMessage('ClientWidth: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ClientWidth)); // Show the document referrer // Referer von Twebbrowser anzeigen. ShowMessage('Referer: ' + TWebbrowser.OleObject.Document.referrer); end
;