請問如何讓 Twebbrowser 或 EmbeddedWB 強制開啟新視窗呢

在已開啟的頁面裏的 Link ，希望click時，強制跳出 IE 新視窗比如按右鍵跳出的PopMenu裏的[在新視窗開啟]

解决方案 »

  1.   

    beforeNavigate里create一个Twebbrowser 
      

  2.   


    var
      WebBrowser: TWebBrowser;
    begin
       WebBrowser := TWebBrowser.Create(nil);是這樣子嗎? 
    試了結果仍然 無法強制跳出IE
      

  3.   

    说错了，是OnNewWindow2，看EmbeddedWB Demos New_Window_Tabs_Demo_2。procedure Tform1.NewWindow2Event(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
    begin
       CreateNewTabBrowser(TabSheetEx.EWB.LocationURL);
       PageControl1.ActivePage := TabSheetEx;
       ppdisp := TabSheetEx.EWB.Application;
    end;
      

  4.   

    可是我不要在PageControl1裏出現新的網頁
    想要讓 IE 跳出新的window