Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: ActiveX/СОМ/CORBA > Непонятное поведение Application.ProcessMessages


Автор: voe 12.4.2008, 23:26
В цикле открываю несколько страниц. Для каждой страницы делаю так:

Код

var
FlagsOlevariant;

  Flags:='DLCTL_PRAGMA_NO_CACHE';      
... 
Unit1.FormMain.WebBrowser1.Navigate('www.ya.ru',Flags);
while not Unit1.FormMain.WebBrowser1.Busy do Application.ProcessMessages;
while Unit1.FormMain.WebBrowser1.Busy do Application.ProcessMessages;
...


При находжении нужной страницы выхожу из цикла и включаю таймер.

При завершении таймера заново выполняю вышеприведенный код.
Но при наступлении :
while not Unit1.FormMain.WebBrowser1.Busy do Application.ProcessMessages;

Происходит переход в начало события и программа начинает выполнятся заново! и так бесконечно!
Вчем может быть гемарой?

Автор: Albinos_x 16.5.2008, 16:39
а что за событие?

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)