Получить или установить задний фон в TWebBrowser

Советы » Браузер » Получить или установить задний фон в TWebBrowser

//You need a TWebbrowser and 3 TButtons 

// First load a page 
procedure

TForm1.Button1Click(Sender: TObject); begin

WebBrowser1.Navigate('www.SwissDelphiCenter.com'); end

; // Show the background color // Hintergrundfarbe herausfinden procedure

TForm1.Button2Click(Sender: TObject); begin

ShowMessage(WebBrowser1.OleObject.Document.bgColor); end

; // Set the background color procedure

TForm1.Button3Click(Sender: TObject); begin

WebBrowser1.OleObject.Document.bgColor := '#000000'; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com