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

TWebBrowser   Найти похожие ветки 

← →
Ksion ©   (2002-08-13 03:51) [0]

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

---

← →
Ihor Osov'yak ©   (2002-08-13 22:01) [1]

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;

---

← →
Ksion ©   (2002-08-14 00:57) [2]

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

---

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

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



Память: 0.45 MB
Время: 0.015 c