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

Новые страницы в TWebBrowser   Найти похожие ветки 

← →
XiAndr   (2006-03-25 19:26) [0]

Вот код:

procedure Form1.WebBrowser1NewWindow2(Sender: TObject;
 var ppDisp: IDispatch; var Cancel: WordBool);
      var Cancel: WordBool);
begin
 Cancel := true;
end;


Ссылка открывающач новое окно в окне просто не работает, с шифтом тоже, короче теперь, новую страницу открыть просто нельзя, что сделать, чтобы она открывалась в окне моего проекта?

---

← →
palva ©   (2006-03-25 20:19) [1]

Может быть так?
Cancel := false;

---

← →
XiAndr   (2006-03-25 20:53) [2]

Так открывается IE

---

← →
palva ©   (2006-03-25 21:33) [3]

Это зависит от свойства ссылки. Если там указано target="_new", то будет открывать в новом окне. Вы смотрели, как выглядит ссылка в html-коде?

---

← →
Dmitrij_K   (2006-03-25 22:22) [4]

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
 var ppDisp: IDispatch; var Cancel: WordBool);
var
 Form1 : TForm1;
begin
 Form1 := TForm1.Create(Application);
 ppDisp := Form1.WebBrowser1.DefaultDispatch;
 Form1.Show
end;

---

← →
XiAndr   (2006-03-26 14:40) [5]

Теперь новое окно открывается, но внизу в списке окон отображается только одно, и при нажатии кнопки закрыть закрываются все окна.

---

← →
Dmitrij_K   (2006-03-26 14:48) [6]

> в списке окон отображается только одно

type
 TForm1 = class(TForm)
 private
   { Private declarations }
   procedure CreateParams(var Params: TCreateParams); override;

And, in the implementation:

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 with params do
   ExStyle := ExStyle or WS_EX_APPWINDOW;
end;


> и при нажатии кнопки закрыть закрываются все окна


Ну это уже извиняй, при закрытии главного окна закрываются все.

---

← →
XiAndr   (2006-03-26 15:36) [7]

Новый прикол, теперь внизу отображается одно лишнее окно, го увидеть его нельзя.

---

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

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



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