//You need a TWebbrowser and 3 TButtons // First load a page procedureTForm1.Button1Click(Sender: TObject); begin
WebBrowser1.Navigate('www.SwissDelphiCenter.com'); end
;
// Show the background color // Hintergrundfarbe herausfinden procedureTForm1.Button2Click(Sender: TObject); begin
ShowMessage(WebBrowser1.OleObject.Document.bgColor); end
;
// Set the background color procedureTForm1.Button3Click(Sender: TObject); begin
WebBrowser1.OleObject.Document.bgColor := '#000000'; end
;