1个回答
展开全部
打开页面? 怎么打开法 输入URL打开网页吗?
看这样行吗
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
newForm: TForm1;
begin
newForm := TForm1.Create(nil);//Application);
newForm.Caption:='MDIForm';
WebBrowser1.OnNewWindow2:=webbrowser1NewWindow2;
newForm.Visible:=true;
ppDisp := newform.WebBrowser1.ControlInterface;
Cancel:=false;
end;
看这样行吗
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
newForm: TForm1;
begin
newForm := TForm1.Create(nil);//Application);
newForm.Caption:='MDIForm';
WebBrowser1.OnNewWindow2:=webbrowser1NewWindow2;
newForm.Visible:=true;
ppDisp := newform.WebBrowser1.ControlInterface;
Cancel:=false;
end;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询