procedureTForm1.Button1Click(Sender: TObject); begin
with
WebBrowser1 do
begin
OleObject.document.body.Style.scrollbarArrowColor := '#0099FF'; OleObject.document.body.Style.scrollbar3DLIGHTCOLOR := '#FFFFFF'; OleObject.document.body.Style.scrollbarDarkShadowColor := '#0099FF'; OleObject.document.body.Style.scrollbarFaceColor := '#99CCFF'; OleObject.document.body.Style.scrollbarHighlightColor := '#0099FF'; OleObject.Document.body.Style.scrollbarShadowColor := '#0099FF'; OleObject.Document.body.Style.scrollbarTrackColor := '#FFFFFF'; end
; end
;