TWebBrower里面的页面出问题了啊，大家帮我下

Question

我有个TWebBrowser里面应该是循环的点TWebBrowser里页面上的'下一页'，可怎么程序运行后，‘下一页’点了一次后程序就停了啊！
如果在循环里面的最后一句写showmessage，又好了，可就是每循环一次要点一次showmessage弹出的窗口！大家帮我看下哈，我新人，诚心想学delphi的

Answer 1

那你在循环里加入一个Sleep(500)，试试看。

Answer 2

那得看你是怎么点的了，要是模拟鼠标点击的话，肯定会有问题的。
获取“下一页”这个页面元素的指针，直接调用其click就不会有问题了

Answer 3

to1楼：Sleep(500),试过了，效果一样，
to2楼：我就是调用其click做的，有人帮忙没?

Answer 4

确定太快了，加个判断看看while webrowser1.busy do begin
  application.processmessage;
end;

Answer 5

每点一次，等于webbrowser重新load一个新的url，这样你就在ondocumentcomplete事件里面去点下一页