|
2017/7/12 (水) 16:36:26 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さん最初から最後までお世話になりました。
マスター、これで連休中安心して白山に行ってこれます。
|
|