delphi中WebBrowser中的网页如何翻页？

Question

我想做一个触摸屏程序，我想自己做一个简单的浏览器，用按钮翻页。
谁会写，请做一个WebBrwoser和一个Button的程序，将Button中的事件代码贴出来，深表谢意

Answer 1

PostMessage(WebBrowser1.Handle,WM_VSCROLL,SB_PAGEDOWN,0);

Answer 2

换页还是滚屏？
换页的话把按钮做在 HTML 中。类似链接那样切换到别的页即可。
滚屏其实也可以做在 HTML 里面，用 js 实现。

Answer 3

我是要对长页进行滚屏。
我的每页都有可能要向下翻页，我总不能在每个页里都用js去写，太费事了。
PostMessage(WebBrowser1.Handle,WM_VSCROLL,SB_PAGEDOWN,0);
我写到Button里面，虽不报错，可是一点儿效果都没有。
高手快快出手相助吧，不然我可要死翘翘了

Answer 4

postmessage的主意是我出的现在的问题是不知如何让WebBrowser获得焦点，setfocus不管用
procedure TForm1.Button1Click(Sender: TObject);
begin
    postmessage(webbrowser1.Handle,WM_KEYDOWN,34,0);
end;
如果用鼠标先单击一下WebBrowser，然后点击button就可以实现翻页如果能解决激活WebBrowser窗口是哪个事件，就可以解决翻页了

Answer 5

postmessage的主意是我出的现在的问题是不知如何让WebBrowser获得焦点，setfocus不管用
procedure TForm1.Button1Click(Sender: TObject);
begin
    postmessage(webbrowser1.Handle,WM_KEYDOWN,34,0);
end;
如果用鼠标先单击一下WebBrowser，然后点击button就可以实现翻页如果能解决激活WebBrowser窗口是哪个事件，就可以解决翻页了

Answer 6

另外还有一种解决方法，就是把WebBrowser放到ScrollBox里，然后通过控制scrollbox的滚动条来实现翻页，这个有现成的技术的，但是我不知道如何让WebBrowser全屏显示，如果能解决这个问题，问题也算解决了就是说，如何得到WebBrowser里网页的高度，然后将WebBrowser的高度设置成这个数值好比:image1.height:=image1.picture.height;问题是里网页的高度是哪个属性呢

Answer 7

在VB里面实现翻屏很简单，可是delphi里面真是愁死人了。哎。

Answer 8

  WebBrowser1.GoBack;
  WebBrowser1.GoForward;用上面的方法可以上下翻页IHTMLWindow4(WebBrowser1.Document).focus    //获取焦点IHTMLWindow4(WebBrowser1.Document).hasfocus //判断是否获取焦点

Answer 9

土豆的代码IHTMLWindow4怎么在delphi5里面找不到啊?能不能写个完整的？