首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

How to change the scrollbar colors of TWebBrowser?

Posted on 2005-03-19 11:47  delphi  阅读(349)  评论(0)    收藏  举报
{A page must be already loaded into TWebBrowser}

procedure TForm1.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;