Главная страница
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.029 c
15-1187600182
@!!ex
2007-08-20 12:56
2007.09.16
ИНтересно, мне будет втык...


2-1188066718
THandle
2007-08-25 22:31
2007.09.16
Загрузка процессора


3-1179317658
Цукор5
2007-05-16 16:14
2007.09.16
insert поля BCD


2-1187216021
Riply
2007-08-16 02:13
2007.09.16
Способы защиты от зацикливания.


9-1160773810
nafta
2006-10-14 01:10
2007.09.16
AI GLScene