Anzeige von mehreren Instanzen sauber lösen

[supermuckl]

also ich hab jetzt mal kurz probieren wollen aber irgendwie komm ich mit dem Twebbrowser nich klar.. kann das parent nicht setzen damit der irgendwo drauf hängt.. vielleicht kann ja jemand dabei helfen !

man nehme ein Tpagecontrol und einen button

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
webbrowserhandle: Twebbrowser;
tab : Ttabsheet;
begin
    tab := ttabsheet.Create(form1.pagecontrol1);
    tab.Visible := true;
    tab.pagecontrol := form1.pagecontrol1;
    tab.Caption := 'www.google.de';

    webbrowserhandle := Twebbrowser.Create(pagecontrol1);

    //webbrowserhandle.Parent := tab; <- geht nicht.. nur lesbar ( wegen dem OLE krempel ? )
    webbrowserhandle.Align := alclient;
    webbrowserhandle.Navigate('www.google.de');
    // ggf nach closen eines tabs die handles wieder freigeben

end;

end.