Powiedzmy, że działa:
procedure TForm4.Button1Click(Sender: TObject);
begin
WebBrowser.Navigate('http://192.168.1.162/');
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
WebBrowser.oleobject.Document.ParentWindow.ScrollBy(10,30);
WebBrowser.OleObject.Document.Body.Style.OverflowX := 'hidden';
WebBrowser.OleObject.Document.Body.Style.OverflowY := 'hidden';
end;
Problem pojawia się gdy chciałbym ustawić to jako jedna funkcja:
procedure TForm4.Button2Click(Sender: TObject);
begin
WebBrowser.Navigate('http://192.168.1.162/');
WebBrowser.oleobject.Document.ParentWindow.ScrollBy(10,30);
WebBrowser.OleObject.Document.Body.Style.OverflowX := 'hidden';
WebBrowser.OleObject.Document.Body.Style.OverflowY := 'hidden';
end;
Całość też działa dla jednej sesji, a chciałbym by działało zawsze niezależnie od wczytywania strony przez co pomysł nieco dziurawy ;/