Прокручивать TWebBrowser своими кнопками

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

// Scroll up 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, -100); 
end; 

// Scroll left 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(-100, 0); 
end; 

// Scroll down 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, +100); 
end; 

// Scroll right 
procedure TForm1.Button4Click(Sender: TObject); 
begin 
  WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(+100, 0); 
end;

Программный код, написанный на языке Delphi, предназначен для прокрутки компонента TWebBrowser с помощью кнопок.

События кликов кнопок: Код определяет четыре процедуры, которые вызываются при нажатии соответствующих кнопок. Каждая процедура прокручивает TWebBrowser на определенное расстояние: 1. Scroll Up: Прокрутка вверх на 100 пикселей. 2. Scroll Left: Прокрутка влево на 100 пикселей. 3. Scroll Down: Прокрутка вниз на 100 пикселей. 4. Scroll Right: Прокрутка вправо на 100 пикселей.

Описание кода: Код использует свойство OleObject компонента TWebBrowser, чтобы получить доступ к underlying COM-объекту, который является экземпляром интерфейса IHTMLDocument2. Этот интерфейс обеспечивает методы для взаимодействия с HTML-документом, включая прокрутку. В каждой процедуре события клика кнопки: * Используется свойство ParentWindow, чтобы получить ссылку на родительское окно веб-браузера. * Метод ScrollBy вызывается на этом объекте окна, который прокручивает содержимое на указанные горизонтальные и вертикальные смещения (в пикселях).

Альтернативное решение: Если вам нужно прокручивать более точно или программно, вы можете использовать метод ExecCommand интерфейса IHTMLDocument2. Например:

procedure TForm1.ScrollToTop;
begin
  WebBrowser1.OleObject.Document.ExecCommand('Scroll', 0, nil);
end;

procedure TForm1.ScrollLeftByPixels(Pixels: Integer);
begin
  WebBrowser1.OleObject.Document.ExecCommand('Scroll Left', 0, Pixels);
end;

В этом примере метод ExecCommand вызывается для выполнения команды "Scroll" с указанными аргументами. Этот метод позволяет иметь более точный контроль над прокруткой. Обратите внимание, что эти альтернативные методы могут не работать, если веб-браузер реализовал собственную поведение прокрутки или если содержимое не является прокручиваемым.

В статье описывается как можно прокручивать TWebBrowser своими кнопками в Delphi при помощи метода ScrollBy и его аргументов для изменения положения скроллинга.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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