TWebBrowser zur Laufzeit erzeugen

[Jens Schumann]

Hallo,<br>mir will es einfach nicht gelingen, eine TWebBrowser Instanz zur Laufzeit zu erzeugen. D.h. erzeugen kann ich die Instanz schon, nur wird TWebBrowser nicht sichtbar. <br>
Das ist der Code, den ich verwende:<br>
<pre>

TForm1 = class(TForm)
PageControl1: TPageControl;
Button1: TButton;
TabSheet1: TTabSheet;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
Web : TWebBrowser;
procedure OnWebVisible(Sender: TObject; Visible: WordBool);
procedure OnNC2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
NewTab : TTabSheet;

begin
NewTab:=TTabSheet.Create(Self);
NewTab.Visible := True;
NewTab.Caption := 'Browser';
NewTab.PageControl := PageControl1;

Web:=TWebBrowser.Create(NewTab);
// Web:=TWebBrowser.CreateParented(NewTab.Handle); // Geht auch nicht
Web.OnVisible:=OnWebVisible;
Web.OnNavigateComplete2:=OnNC2;
Web.Align:=alClient;
Web.Visible := True;
Web.Show;
Web.Navigate('http://www.entwickler.com');
end;

</pre>

<br>
Die Ereignisse Web.OnVisible und Web.OnNavigateComplete2 werden ausgelöst.<br>
Weiß jemand wie das geht?<br>Ach ja, ich verwende D5 Pro<br>:-) Jens Schumann

[Karsten Gehm]

Es fehlt noch NewTab.parent := self; und web.parent := newTab

[Jens Schumann]

Hallo Karsten,<br>NewTab.Parent wird durch NewTab.PageControl:=PageControl1 erledigt. Web.Parent ist read only.<br>:-) Jens Schuman

[Jens Schumann]

Hallo,<br>hab's raus. NewTab.InsertControl(Web) ist der magische Befehl.<br>:-) Jen