Скачать: CL | DM;

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

← →
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 секунды

---

← →
VMcL ©   (2004-06-16 18:29) [6]

>>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 мониторе.
> ?


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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c