Главная страница
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.026 c
8-1164920705
DevilDevil
2006-12-01 00:05
2007.09.16
IBasicAudio, put_Volume - реальная граница?


8-1165417477
algol
2006-12-06 18:04
2007.09.16
Разобрать медиа файл и построить спектр


15-1187689000
vann
2007-08-21 13:36
2007.09.16
Подскажите компонент для календаря


15-1187432782
Riply
2007-08-18 14:26
2007.09.16
Удаление анкеты.


2-1187683458
Alex_AA
2007-08-21 12:04
2007.09.16
Как вставить картинку в ячейку таблицы?