タブブラウザ作成

解決

ぽん 2005-08-12 08:21:13 No: 17017

タブブラウザを作成しようとしています。
使っているコンポーネントは、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;

このような感じで、タブを動的に生成するところまではできました。
助言お願いします。

774 2005-08-12 08:41:46 No: 17018

ここ参考にすればいいよ
http://delphi.sakura.vg/index2.html

ぽん 2005-08-12 19:28:25 No: 17019

URL提供ありがとうございます。
タブコントロールとページコントロールとでは色々と違うようですね・・・。
http://www.wwlnk.com/boheme/delphi/tips/tec1620.htm
ここのサイトがそのものを解決してくれました。