掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Web画面を左クリックで別タブで開くには。 (ID:37189)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
これでどう？さん回答有り難うございます。 procedure TForm1.Button1Click(Sender: TObject); で clickfrag:=true;して BeforeNavigate2で procedure TIETabSheet.WebBrowser1BeforeNavigate2(Sender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); var IETab: TIETabSheet; begin if clickfrag=false then begin Cancel := True; with Form1 do begin IETab := TIETabSheet.Create(PageControl1); IETab.Parent := PageControl1; IETab.PageControl := PageControl1; PageControl1.ActivePage := TTabSheet(IETab); WebBrowser1.Navigate(URL); end; end; clickfrag:=false; end; としてみましたが if (Button1のClickでない場合) then begin をどのような方法でとらえるかがキーになると思いますが 私はまだ解決できませんでした。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.