执行时，关闭不了窗口

[lostmoon]

执行下面的语句的时候，无法关闭,form上的关闭按钮点了也关闭不了，必须等都执行完了，才能关，不知道错在哪里了？

while not adoquery1.eof do

     begin
      Application.ProcessMessages;
      Edit3.Text := string(ADOQuery1.FieldByName('URL').value);
       WebBrowser1.Navigate(Edit3.Text);
      repeat
        Application.ProcessMessages;
      until (not webbrowser1.Busy);

    //打开相应网站后，执行这里

      adoquery1.next;
    end;

[xingyongjian]

这个问题要自己解决; 问题就在下面的循环中,好好看看VCL的源码吧!

WebBrowser1.Navigate(Edit3.Text);
repeat
Application.ProcessMessages;
until (not webbrowser1.Busy);

[buding79]

Application.ProcessMessages;
不建议用这个，会导致很多莫名其妙的问题。。。。。。

[gyk120]

Application.ProcessMessages的问题，这个函数会暂时放弃CPU指令
建议换成sleep或者timer

[dd_zhouqian]

弄个标志位吧
m_closestatus:Boolean;


while not adoquery1.eof do

begin
if m_closestatus=True then
break;
Application.ProcessMessages;
Edit3.Text := string(ADOQuery1.FieldByName('URL').value);
WebBrowser1.Navigate(Edit3.Text);
repeat
Application.ProcessMessages;
until (not webbrowser1.Busy);

//打开相应网站后，执行这里

adoquery1.next;
end;

[starluck]

Application.ProcessMessages;