PageControlでタブブラウザの情報管理は？ (ID:21677)

名前

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

本文

皆様、お世話になります。環境はDelphi6  Personalです。
PageControlだけformに貼り付けて、タブブラウザを作成中です。
http://www.wwlnk.com/boheme/delphi/tips/tec1620.htm  を参考にしてます。
当初はTabControlで管理するタブブラウザを作成しましたが（  http://delphi.sakura.vg/index2.htmlを参考）、
これはTabControlの次のような機能で子フォームの情報を管理しているようです。
Form1.TabControl1.Tabs.AddObject('',TObject(Self));
ところが、PageControlで同じような管理をしようとプロパティにPagesがあるのですが違うようです。
【教えて頂きたいこと】
PageControlで各ページのURLや前進後進情報などどのように保存管理、取り出しするのかご教授をお願いいたします。
URLだけはStringListにいれて見ましたが、どうにも間が抜けているような気がします。
以下はすこし長くなりましたがヘルプやあちこちのサイトを参考にした作成中のコードです。
procedure TForm1.Navigate(const URL:string);//ナビゲートボタンで実行する
begin
  TabSheet  :=  TTabSheet.Create(Self);
  TabSheet.Parent       :=  PageControl1;
  TabSheet.PageControl  :=  PageControl1;
  TabSheet.Caption      :=  '';

PageControl1.ActivePageIndex:=PageControl1.PageCount-1;//次の画面をアクティブにする
  WebBrowser1  :=  TWebBrowser.Create(Self);
  TOleControl(WebBrowser1).Parent  :=  TabSheet;
  //使うであろうイベントを明示的に記述しておく。
  WebBrowser1.Align      :=  alClient;
  WebBrowser1.OnCommandStateChange  := WebBrowser1CommandStateChange;//以下はprocedureを書いておく
  WebBrowser1.OnNavigateComplete2   := WebBrowser1NavigateComplete2;
  WebBrowser1.OnNewWindow2          := WebBrowser1NewWindow2;
  WebBrowser1.OnStatusTextChange    := WebBrowser1StatusTextChange;
  WebBrowser1.OnTitleChange         := WebBrowser1TitleChange;

WebBrowser1.Navigate(URL, EmptyParam, EmptyParam,EmptyParam, EmptyParam);
end;
//画面が切り替わったときタイトルとURLを再表示する
procedure TForm1.PageControl1Change(Sender: TObject);
begin
    Form1.Caption := PageControl1.Pages[PageControl1.ActivePageIndex].Caption;
        //↓間が抜けているし、前進後進などの情報を再現できない
    ComboBox1.Text   := SiteRecList.Strings[PageControl1.ActivePageIndex];
end;
宜しくお願いいたします。m(_ _)m

←解決時は質問者本人がここをチェックしてください。

戻る