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 не подходит.

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

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

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