TWebBrowser zur Laufzeit erstellen

[Johannes Tränkle]

Wenn ich versuche, eine Instanz von TWebBrowser zu Laufzeit zu erstellen, dann wird zwar etwas erstellt - es wird versucht, eine Internetvergindung zu erstellen, sobald ich navigieren will - aber es wird nichts angezeigt.<br>
Kann mir irgendjemand sagen, was ich falsch mache, am besten mit einem kleinen Beispiel ;-)?

[Jens Schumann]

Hallo Johannes,<br>im folgenden Beispiel wird nach dem Klick auf Button1 eines neues TTabSheet erzeugt. Auf dieses TTabsheet wird anschließend eine zur Laufzeit erzeugt TWebBrowser Intanz gesetzt.
<br>
<pre><font size="1" face="Verdana">
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,Shdocvw, ComCtrls;

type
TForm1 = class(TForm)
PageControl1: TPageControl;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
Web : TWebBrowser;
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);
NewTab.InsertControl(Web);
Web.Align:=alClient;
Web.Navigate('http://www.entwickler.com');
end;

end.
</font></pre>
<br>Die Zeile NewTab.InsertControl(Web); sorgt dafür, das TWbeBrowser sichtbar wird.<br>
<br>:-) Jens Schuman