Форум: "Сети";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Сети";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c