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

名前

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

本文

こんな感じではどうでしょう？
戻る、進むの状態は、WebBrowserから引っ張り出すことも可能です。
長くなるので、ここでは簡単にCommandStateChangeイベントで記録する方法にしていますが、
本格的なブラウザを目指されているのなら、いずれ必要になると思います。
もし、ご興味があれば ITravelLogStg などを調べてみると良いでしょう。

type
  TTabSheetEx = class(TTabSheet)
  private
    WebBrowser: TWebBrowser;
    IsBack: Boolean;
    IsForward: Boolean;
  end;

procedure TForm1.AddTab(const Url: string);
var
  TabSheetEx: TTabSheetEx;
begin
  TabSheetEx:=TTabSheetEx.Create(PageControl1);
  TabSheetEx.WebBrowser:=TWebBrowser.Create(TabSheetEx);
  TOleControl(TabSheetEx.WebBrowser).Parent:=TabSheetEx;
  TabSheetEx.PageControl:=PageControl1;

TabSheetEx.WebBrowser.OnCommandStateChange:=WebBrowserCommandStateChange;

TabSheetEx.WebBrowser.Navigate(Url);
end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  ComboBox1.Text:=(PageControl1.ActivePage as TTabSheetEx).WebBrowser.LocationURL;
//  戻るボタン.Enabled:=(PageControl1.ActivePage as TTabSheetEx).IsBack;
//  進むボタン.Enabled:=(PageControl1.ActivePage as TTabSheetEx).IsForward;
end;

procedure TForm1.WebBrowserCommandStateChange(Sender: TObject;
  Command: Integer; Enable: WordBool);
begin
  case Command of
    CSC_NAVIGATEBACK:
      ((Sender as TWebBrowser).Owner as TTabSheetEx).IsBack:=Enable;
    CSC_NAVIGATEFORWARD:
      ((Sender as TWebBrowser).Owner as TTabSheetEx).IsForward:=Enable;
  end;
end;

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

戻る