タブブラウザ作成

解決

ぽん 2005-08-11 23:21:13 No: 17017 IP: 192.*.*.*

タブブラウザを作成しようとしています。
使っているコンポーネントは、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-11 23:41:46 No: 17018 IP: 192.*.*.*

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

編集削除

ぽん 2005-08-12 10:28:25 No: 17019 IP: 192.*.*.*

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

編集削除