Спрятать скроллбары в TWebBrowser

Delphi , Интернет и Сети , Браузер

{A page must be loaded into TWebBrowser} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  WebBrowser1.OleObject.Document.Body.Style.OverflowX := 'hidden'; 
  WebBrowser1.OleObject.Document.Body.Style.OverflowY := 'hidden'; 
end;

Пример классического скрытия полос прокрутки в TWebBrowser!

Предлагаемый код - хороший старт, но не будет работать как ожидалось, потому что свойство Style только устанавливает стиль для текущего документа, который может измениться при навигации пользователя на другой странице.

Чтобы скрыть полосы прокрутки навсегда, вам нужно установить свойства полос напрямую. Вот обновленная версия вашего кода:

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.OleObject.Document.Body.scrollbarX.Visible := False;
  WebBrowser1.OleObject.Document.Body.scrollbarY.Visible := False;
end;

В этом коде мы доступимся к свойствам scrollbarX и scrollbarY объекта Body и устанавливаем свойство Visible в False. Это будет скрыть полосы прокрутки для всех страниц, загруженных в TWebBrowser.

Обратите внимание, что если вы хотите скрыть полосы только при загрузке конкретной страницы, вам нужно проверить текущий URL или содержимое документа перед скрытием полос.

В статье описывается способ скрытия скроллбаров в TWebBrowser при помощи изменения стиля тела документа в элементе Body, используя свойства OverflowX и OverflowY.

Комментарии и вопросы

:: Главная :: Браузер ::