change the scrollbar colors of TWebBrowser?

A page must be already loaded into TWebBrowser}
{Eine Seite muss bereits in TWebBrowser geladen sein}

//Example
//Beispiel

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;
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章