多看看:http://www.euromind.com/iedelphi
其中:http://www.euromind.com/iedelphi/embeddedwb/onnewwindow.htm
提到代码如下:
procedure TForm1.EmbeddedWB1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
NewApp: TForm1;
begin
NewApp := TForm1.Create(Owner);
NewApp.Visible := true;
ppdisp := NewApp.EmbeddedWB1.Application_;
end;
我想你的问题用这个就可以解决了。