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

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

TWebBrowser

Ksion ©   (2002-08-13 03:51:00) 

Как сделать чтоб там новое окно открывалось в моей проге?

---

Ksion   (2002-08-14 00:57:00) [1]

Большое при большое человеческое спасибо.

---

Ihor Osov'yak   (2002-08-13 22:01:00) [2]

type
TFormSimpleWB = class(TForm)
.....
WebBrowser1: TWebBrowser;
procedure WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
.....
end;


procedure TFormSimpleWB.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var newForm:TFormSimpleWB;
begin
newForm:=TFormSimpleWB.Create(Application);
newForm.Show;
ppDisp:=newForm.WebBrowser1.ControlInterface;
end;

---

Наверх