名前 題名 ▼ satoさん > ▼ SOさん、takaさん、マスター > みなさん本当にありがとうございました。半分あきらめかけていたのですが > F12でResultPrintForm()の中身を見ることができました。 > function ResultPrintForm(){ > url="jsp/ResultReport.jsp"; > newwin=window.open(url,'new','fullscreen=yes,scrollbars=1'); > newwin.moveTo(0,0) > } > となっていたので、WebBrowser上では新しいウィンドウが開けないのかと思い > procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; > var ppDisp: IDispatch; var Cancel: WordBool); > begin > WebBrowser2.RegisterAsBrowser:=True; > ppDisp:=WebBrowser2.Application; > Cansel:=False; > end; > と、ダミーのWebBrowser2を使うことでエラーが出なくなって喜んだのもつかの間 > 一度印刷ボタンを押したあとに、二度目の押下でエラーになりガックリ。 > いろいろと探し回り > papyさんの掲示板で > http://www.papy.in/bbs/delphi/200809/08090044.html > procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; > var ppDisp: IDispatch; var Cancel: WordBool); > begin > OpenNewWindow := True; > if not Assigned(TempWB) then begin > TempWB := TWebBrowser.Create(Self); > // TempWB.Visible := False; TempWB.Width := 0; TempWB.Height := 0; > TempWB.OnBeforeNavigate2 := WebBrowser1BeforeNavigate2; > end; > ppDisp := TempWB.ControlInterface.Application; > end; > を見つけ、さっそく試したところバッチリでした。 > あわてていたので環境を書くのを忘れていました。Win7,Delphi7,IE8 です。 > みなさん、春子さん本当にありがとうございました。 > SOさん最初から最後までお世話になりました。 > マスター、これで連休中安心して白山に行ってこれます。 > GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link