open url in new window with custom TWebBrowser?

{

 Normalerweise öffnet sich automatisch der Internet Explorer

 wenn im TWebBrowser eine URL in einem neuen Fenster geöffnet wird.

 Mit diesem Tip wird eine neue Instanz des eigenen Browsers

 erstellt und die URL dort geöffnet.

}

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;

 var ppDisp: IDispatch; var Cancel: WordBool);

var

 NewWindow: TForm1;

begin

 // a new instance of the form will be created

 // Eine neue Instanz wird erstellt

 NewWindow := TForm1.Create(self);

 NewWindow.Show;

 ppDisp := NewWindow.Webbrowser1.DefaultDispatch;

end;

---------------------------------------

在本窗口打开的功能：

procedure TForm1.FormCreate(Sender: TObject);

begin

 WebBrowser1.Navigate('http://www.codelphi.com/forum');

end;

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;