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

Советы » Браузер » Прокручивать TWebBrowser своими кнопками

// 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com