Текущий архив: 2002.10.14;
Скачать: 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 вся ветка
Текущий архив: 2002.10.14;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.021 c
