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 をどのような方法でとらえるかがキーになると思いますが 私はまだ解決できませんでした。