TWebBrowserを動的に生成する

TWebBrowserはアプリケーションにブラウザを簡単に組み込めるコンポーネントです。で、これをプログラム内で動的につくろうとすると Parent プロパティを設定できないエラーがでます。 それを回避するには WebBrowser のインスタンスを TOleControl にキャストするといいようです。以下の例はボタンを押すとページコントロール内に新しいブラウザをつくります。

■ TWebBrowserを動的に生成する例 
procedure TForm1.Button3Click(Sender: TObject);
var
  TabSheet : TTabSheet;
  WebBrowser : TWebBrowser;
begin
  TabSheet  :=  TTabSheet.Create(Self);
  TabSheet.Parent       :=  PageControl1;
  TabSheet.PageControl  :=  PageControl1;
  TabSheet.Caption      :=  'ブラウザ';
  WebBrowser  :=  TWebBrowser.Create(Self);
  TOleControl(WebBrowser).Parent  :=  TabSheet;
  WebBrowser.Align      :=  alClient;
  WebBrowser.Navigate('http://www.borland.co.jp', EmptyParam, EmptyParam, 
                      EmptyParam, EmptyParam);
end;