Форум программистов [Powered by Invision Power Board]

Код


procedure TForm1.Timer1Timer(Sender: TObject);
begin
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, 10);
end;

Код


WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, -10);

Код


procedure TForm1.btn1Click(Sender: TObject);
begin
  tmr1.Enabled:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  tmr1.Enabled:=false;
  tmr1.Tag:=0;
  wb1.Navigate('http://rol.ru');//some URL
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
  if tmr1.tag=0
     then begin
            wb1.OleObject.Document.ParentWindow.ScrollBy(0, 10);
            if WB1.OleObject.Document.Body.ScrollTop+WB1.OleObject.Document.Body.ClientHeight>=wb1.OleObject.Document.Body.ScrollHeight
               then tmr1.tag:=1;
          end
     else begin
            wb1.OleObject.Document.ParentWindow.ScrollBy(0, -10);
            if WB1.OleObject.Document.Body.ScrollTop<=0
               then tmr1.tag:=0;
          end;
end;

Код


     if Timer4.tag=0
     then begin
            GetActiveEWB.OleObject.Document.ParentWindow.ScrollBy(0, SpinEdit1.Value);
            if GetActiveEWB.OleObject.Document.Body.ScrollTop+GetActiveEWB.OleObject.Document.Body.ClientHeight>=GetActiveEWB.OleObject.Document.Body.ScrollHeight
               then Timer4.tag:=1;
            end
     else begin
            GetActiveEWB.OleObject.Document.ParentWindow.ScrollBy(0, -SpinEdit1.Value);
            if GetActiveEWB.OleObject.Document.Body.ScrollTop<=0
               then Timer4.tag:=0;
      end;

Код


procedure TForm1.Timer4Timer(Sender: TObject);
var
    iall : IHTMLElement;
begin
 if Assigned(GetActiveEWB.Document) then
   begin
     iall := (GetActiveEWB.Document AS IHTMLDocument2).body;

     while iall.parentElement <> nil do
     begin
       iall := iall.parentElement;
     end;

  if Timer4.tag=0
     then begin
            GetActiveEWB.OleObject.Document.ParentWindow.ScrollBy(0, SpinEdit1.Value);
            if GetActiveEWB.OleObject.Document.Body.ScrollTop+GetActiveEWB.OleObject.Document.Body.ClientHeight>=iall.outerHTML
               then Timer4.tag:=1;
          end
     else begin
            GetActiveEWB.OleObject.Document.ParentWindow.ScrollBy(0, -SpinEdit1.Value);
            if GetActiveEWB.OleObject.Document.Body.ScrollTop<=0
               then Timer4.tag:=0;
          end;

 end;
end;

Код


BrowserVScrollBar.Position := BrowserVScrollBar.Position + Delta;

Цитата(muratboy31 @ 11.2.2010, 18:46

)

but i need to combine it so when it is at the bottom scroll top and if it is on top then scroll bottom...

Код

function TForm1.TBrowserScrollV(Delta: SmallInt): boolean;
var
  HtmlDoc: IHTMLDocument2;
  CurElement: IHTMLElement;
  Pos: TPoint;
begin
  try
    GetCursorPos(Pos);
    Pos := WebBrowser1.ScreenToClient(Pos);
    HtmlDoc := WebBrowser1.DefaultInterface.Document as IHTMLDocument2;
    CurElement := HtmlDoc.elementFromPoint(Pos.X, Pos.Y) as IHTMLElement;
    if CurElement = nil then
      Exit;
    while ((((CurElement as IHTMLElement2).currentStyle.overflow <> 'scroll')
      and ((CurElement as IHTMLElement2).currentStyle.overflow <> 'auto')))
      or ((((CurElement as IHTMLElement2).scrollTop + (CurElement as IHTMLElement).offsetHeight >=
        (CurElement as IHTMLElement2).scrollHeight) and (Delta > 0))
      or (((CurElement as IHTMLElement2).scrollTop <= 0)) and (Delta < 0))
    do begin
      if (CurElement.parentElement = nil) then
        Break;
      if (HtmlDoc.activeElement.tagName = 'SELECT') then
      begin
        CurElement := HtmlDoc.activeElement;
        if Delta > 0 then
        begin
          if (CurElement as IHTMLSelectElement).selectedIndex + 3 < (CurElement as IHTMLSelectElement).length then
            (CurElement as IHTMLSelectElement).selectedIndex := (CurElement as IHTMLSelectElement).selectedIndex + 3
          else
            (CurElement as IHTMLSelectElement).selectedIndex := (CurElement as IHTMLSelectElement).length - 1;
        end
        else
        begin
          if (CurElement as IHTMLSelectElement).selectedIndex - 3 >= 0 then
            (CurElement as IHTMLSelectElement).selectedIndex := (CurElement as IHTMLSelectElement).selectedIndex - 3
          else
            (CurElement as IHTMLSelectElement).selectedIndex := 0;
        end;
        Break;
      end;
      CurElement := CurElement.parentElement;
    end;
    if (Delta > 0) and ((CurElement as IHTMLElement2).scrollTop + Delta >=
      (CurElement as IHTMLElement2).scrollHeight - (CurElement as IHTMLElement).offsetHeight)
    then
      Delta := (CurElement as IHTMLElement2).scrollHeight - (CurElement as IHTMLElement).offsetHeight - (CurElement as IHTMLElement2).scrollTop
    else if (Delta < 0) and ((CurElement as IHTMLElement2).scrollTop + Delta <= 0) then
      Delta := -(CurElement as IHTMLElement2).scrollTop;

    Result := (Delta = 0); // <--- !!! The only thing was actually changed !!!

    (CurElement as IHTMLElement2).ScrollTop := (CurElement as IHTMLElement2).ScrollTop + Delta;
     //    if (CurElement.tagName = 'BODY') or (CurElement.tagName = 'HTML') then
 except
    Result = false; // Will not change direction ...
 end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser.Navigate('www.ebay.com');
end;

procedure TForm1.WebBrowserDownloadComplete(Sender: TObject);
begin
timer1.Enabled:=true;
end;

var Lines: Integer = 150;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if TBrowserScrollV(Lines) then Lines := - Lines;
end;

Код


procedure TForm1.Timer4Timer(Sender: TObject);
var
Lines:integer;
begin
Lines:=SpinEdit1.value;
if TBrowserScrollV(Lines) then Lines := - Lines;
end;

Цитата(muratboy31 @ 12.2.2010, 08:54

)

i use the timer with spin value

Код

  TForm1 = class(TForm)
     // ... 
  public
    { Public declarations }
    Lines: Integer; // <--- Lines declared here !!!

    function TBrowserScrollV(Delta: SmallInt): boolean;
    // ...
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  webbrowser.Navigate('www.ebay.com');
  SpinEdit1.Value := 50;
end;
procedure TForm1.WebBrowserDownloadComplete(Sender: TObject);
begin
  timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if TBrowserScrollV(Lines) then Lines := - Lines;
end;

// Add SpinEdit OnChange event:
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  Lines := (Sender as TSpinEdit).Value * IfThen(Lines < 0, -1, 1);
end;

Код


  private
    { Private declarations }
function TBrowserScrollV(Delta: SmallInt): boolean;
  public
    { Public declarations }
     Lines: Integer;
end;

var
    Form1: TForm1;

implementation

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
Lines := (Sender as TSpinEdit).Value * If Then (Lines < 0, -1, 1);
end;

Цитата(muratboy31 @ 12.2.2010, 09:25

)

expression expected but then found

Код

Uses ..., Math;

Код

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  // Lines := (Sender as TSpinEdit).Value * IfThen(Lines < 0, -1, 1);

  // can be changed

  if Lines < 0 then Lines := - (Sender as TSpinEdit).Value
  else Lines := (Sender as TSpinEdit).Value;
end;

Цитата(muratboy31 @ 12.2.2010, 09:58

)

but if i type a number to spinedit then it crashes and also it doesnt start scrooling if i dont spin a number up or down...