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

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

• · 推荐参考文章：
• 掌握ADO.NET的十个热门技巧
• 在VB.NET中调试存储过程
• VB.NET开发扫描客户端服务工具
• 消息队列在VB.NET数据库开发中的应用
• VB.NET实现五子棋的人工智能(1)
• VB.NET实现五子棋的人工智能(2)
• 在.NET环境下将报表数据导出EXCEL和WORD
• 如何用VB.Net创建一个三层的数据库应用程序(转贴
• 向VisualBasic程序员介绍My命名空间（二）
• 引言：KentBeck曾经说过“我只是个更注重的程序规范的程序员而已”

· 网友精彩回答：

postmessage(webbrowser1.handle,wm_vscroll,sb_pagedown,0);

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