webbrowser中打开新窗体的问题。

[xsyun]

使用webbrowser时，如何仍用自己打开新窗体？

[pandengzhe]

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
NewApp: TForm1;
begin
NewApp := TForm1.Create(nil);
NewApp.Visible := true;
ppDisp := NewApp.webbrowser1.Application;
end;