掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TwebBrowserでTarget Blankさせない方法 (ID:44604)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
takanaさん、あ さん、けど さん ありがとうございます。 以下のソースで実行してみましたが、やはり新しいブラウザが開いて しまいます。 --------------------------- WebBrowser1・・・表示用。 WebBrowser2・・・Width:=0;Height:=0にしておく。NewWindow用 usesにShellApiを追加。 procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); var a: TObject; begin //新しいウィンドウを開くとき、WebBrowser2に表示を任せる WebBrowser2.RegisterAsBrowser := True; ppDisp := WebBrowser2.Application; Cancel := False; end; procedure TForm1.WebBrowser2BeforeNavigate2(ASender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); begin //WebBrowser2で開かれる前に渡されるURLでShellExecute。WebBrowser2のNavigateはキャンセル。 ShellExecute(0, 'open', PChar(String(URL)), nil, nil, SW_NORMAL); Cancel := True; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.