Открытие в новом окне (Зависание)

← →
Dennisius (2004-05-26 11:51) [0]

Здраствуйте что бы открыть из своего браузера новое окно в экземпляре собственного браузера и использую код :

procedure TForm.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); Var newForm :TWebForm; begin newForm:=TWebForm.Create(ShellForm); newForm.Show; ppDisp:=newForm.WebBrowser1.ControlInterface; end;

но программа подвисает и окно открывается только спустя 4-3 секунды это естественно не дело , подскажите а че так, и чего делат.

← →
Ihor Osov'yak © (2004-05-26 15:48) [1]

с первого взгляда - все нормально. Правда, не совсем понятно, почему в качестве owner - ShellForm..
... Я думаю, что проблема все же не в коде, который здесь приведен.

← →
Dennisius (2004-05-26 16:45) [2]

> Ihor Osov"yak © (26.05.04 15:48) [1]
> с первого взгляда - все нормально. Правда, не совсем понятно,
> почему в качестве owner - ShellForm..
> ... Я думаю, что проблема все же не в коде, который здесь
> приведен.

ShellForm это MDIForm, все остальные MDIChild

← →
VMcL © (2004-05-26 16:50) [3]

>>Dennisius (26.05.04 16:45) [2]

Посмотри отладчиком в каком именно месте тормозит.

← →
nikkie © (2004-05-26 17:34) [4]

1. а если ты создаешь TWebForm не в OnNewWindow, а сам - быстро окно появляется?

2. приведи, если есть, код в TWebForm.Create, OnCreate, OnShow

3. попробуй не создавать окно с новым WebBrowser-ом, а положить WebBrowser на ShellForm и переадресовывать туда. а в ShellForm.WebBrowser.OnBeforeNavigate - создавать TWebForm

← →
Dennisius (2004-05-27 10:21) [5]

> nikkie © (26.05.04 17:34) [4]
> 1. а если ты создаешь TWebForm не в OnNewWindow, а сам -
> быстро окно появляется?
>
> 2. приведи, если есть, код в TWebForm.Create, OnCreate,
> OnShow
>
> 3. попробуй не создавать окно с новым WebBrowser-ом, а положить
> WebBrowser на ShellForm и переадресовывать туда. а в ShellForm.WebBrowser.OnBeforeNavigate
> - создавать TWebForm

без
ppDisp:=newForm.WebBrowser1.ControlInterface;
и с этим кодом все равно видимо сам браузер создается ровно 3 секунды

>>Dennisius (27.05.04 10:21) [5]

Очень напоминает торможение при включенном AVP мониторе.
?

← →
Dennisius (2004-06-17 13:10) [7]

> VMcL © (16.06.04 18:29) [6]
> >>Dennisius (27.05.04 10:21) [5]
>
> Очень напоминает торможение при включенном AVP мониторе.
> ?

А ты скорее всего прав действительнои без антивируса вообще быстрее. фанкью

Открытие в новом окне (Зависание) Найти похожие ветки