Прокручивать 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;
|
|
