TChromium kaydırma çubuğu konumları nasıl alınır ve ayarlanır?

Question

Delphi'de TChromium kaydırma çubuğu konumları nasıl ayarlanır ve ayarlanır?

Answer 1

Şu anda CefSharp ile oynuyor, bunun Delphi'den daha benzer olduğunu düşünüyorum. İşte benim çözüm:

public int GetVerticalScrollPosition() 
{ 
    var r = _webView.EvaluateScript(@"document.body.scrollTop"); 
    return Convert.ToInt32(r); 
} 

public void SetVerticalScrollPosition(int pos) 
{ 
    _webView.ExecuteScript(
     string.Format(@"document.body.scrollTop = {0}", pos)); 
} 

Ben Delphi uzman artık, sen benim kodunu anlayabileceği umut değilim; Temel olarak I use JavaScript to read/write the scroll positions ve bu küçük JavaScript parçacıklarını EvaluateScript ve ExecuteScript yöntemleriyle yürütün.

Answer 2

Doğrudan javascript nesneleriyle çalışmak mümkündür. Sadece çerçevenin CefV8Context kullanın.

var 
    val: ICefV8Value; 
    context: ICefv8Context; 
    excp: ICefV8Exception; 
    scroll: TPoint; 
begin 
    if (Chromium1.Browser.MainFrame = nil) then 
     exit; 

    //this will work only with exact frame 
    context := Chromium1.Browser.MainFrame.GetV8Context; 

    if (context <> nil) then 
    begin 
     context.Eval('window.pageXOffset', val, excp); 
     scroll.x := val.GetIntValue; 
     context.Eval('window.pageYOffset', val, excp); 
     scroll.y := val.GetIntValue; 
    end 
    else 
     exit; 

    //todo: do something with scroll here 
end; 

Answer 3

Sen TCromium.Browser JavaScript kullanmak gerekir: Burada

bir örnektir. Bu en kolay yol:

Chromium1.Browser.MainFrame.ExecuteJavaScript('window.scrollBy(0,50)', 'about:blank', 0); 

İyi şanslar!