| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Новые страницы в TWebBrowser [D7, XP]

XiAndr ©   (2006-03-25 19:26:00) 

Вот код:

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


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

---

XiAndr   (2006-03-26 15:36:00) [1]

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

---

Dmitrij_K   (2006-03-26 14:48:00) [2]

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

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 14:40:00) [3]

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

---

Dmitrij_K   (2006-03-25 22:22:00) [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;

---

palva   (2006-03-25 21:33:00) [5]

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

---

XiAndr   (2006-03-25 20:53:00) [6]

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

---

palva   (2006-03-25 20:19:00) [7]

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

---

Наверх