タブブラウザ作成 (ID:17017)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 タブブラウザを作成しようとしています。 使っているコンポーネントは、PageControlです。 動的にページを追加して、そこにWebBrowserコンポーネントを貼り付けたいのですが、WebBrowserコンポーネントを貼り付ける部分がどのように書けばよいのかわかりません。 procedure AddTab(Lbl:String); var TabSheet: TTabSheet; WebBrowser1: TWebBrowser; begin TabSheet := TTabSheet.Create(Form1); TabSheet.PageControl := Form1.PageControl1; Form1.PageControl1.Pages[Form1.PageControl1.PageCount-1].Caption := Lbl; Form1.PageControl1.Pages[Form1.PageControl1.PageCount-1].PopupMenu := Form1.PopUpMenu2; このような感じで、タブを動的に生成するところまではできました。 助言お願いします。