Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.09.16;
Скачать: CL | DM;

Вниз

TWebBrowser и ReadyState   Найти похожие ветки 

 
Ш-К   (2007-01-26 11:35) [0]

Я ловлю загрузку документа через код:
procedure TEmbeddedWB.Wait;
begin
  while ReadyState <> READYSTATE_COMPLETE do
  begin
     Forms.Application.ProcessMessages;
  end;
end;

Когда TWebBrowser лежит на видимой форме/контроле, это работает.
Но когда TWebBrowser невидим (например, лежит на неактивной закладке), READYSTATE_COMPLETE ниикогда не наступит.
Приходится обрабатывать что-то типа:
procedure TEmbeddedWB.Wait;
begin
  while ReadyState <> READYSTATE_INTERACTIVE do
  begin
     Forms.Application.ProcessMessages;
  end;
end;

Как объеденить эти обработчики в нутре TWebBrowser?


 
Плохиш ©   (2007-01-26 12:08) [1]


while not ReadyState in [READYSTATE_COMPLETE, READYSTATE_INTERACTIVE] do

или

while (ReadyState <> READYSTATE_COMPLETE) and (ReadyState <> READYSTATE_INTERACTIVE) do


Основы паскаля пора бы и поучить, в конце концов.


 
Ш-К   (2007-01-26 13:03) [2]

Под объединением я понимал проверку состояний контрола. Чтобы в зависимости "открытый" он или "закрытый" выполнять тот или иной код.

Может есть метод, который возвращает это св-во?
Понятно, что (Parent <> nil) and Parent.Visible не подходит.


 
Плохиш ©   (2007-01-26 13:40) [3]


> Ш-К   (26.01.07 13:03) [2]
> Под объединением я понимал

Тогда жди, когда телепаты из отпуска выдут...



Страницы: 1 вся ветка

Текущий архив: 2007.09.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
15-1187286257
Змей
2007-08-16 21:44
2007.09.16
rxlib


2-1187544827
Bast
2007-08-19 21:33
2007.09.16
Криптовщик


2-1187861807
tim_ka
2007-08-23 13:36
2007.09.16
Label на TImage


2-1187732489
foreverDelphi
2007-08-22 01:41
2007.09.16
проблема в компоненте TOpenDialog


15-1185568307
Kostafey
2007-07-28 00:31
2007.09.16
С днем рождения ! 28 июля