掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
WebBrowserでリンクをIEではなく、作っているブラウザで新しいウィンドウで開くには？ (ID：9874)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
これでどうでしょうか？＞Delphi初心者さん procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); begin Cancel := False; ppDisp := WebBrowser2.ControlInterface; end; procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); begin ShellExecute(Handle,'OPEN',PChar(ParamStr(0)),PChar(URL),'',SW_SHOWNORMAL); Cancel := True;//うまく動作しない場合はこの行を消す end; (WebBrowser1はWeb表示用で、WebBrowser2は新しく開くブラウザにURLを渡すのに使うため、 WebBrowser2をWebBrowser1の後ろに隠すか、WebBrowser2.VisibleをFalseにする) で、FormCreate時に次の処理を行なわせれば、自前の新しい別のWebBrowserウインドウが開くはずです。 procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate(ParamStr(1)); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.