TWebBrowser dynamisch erstellen

[Nalincah]

Wie kann ich nen TWebBrowser dyn. erstellen?

Kann Parent nicht setzen da es "Nur lesen" ist. Wie krieg ich das Ding angezeigt?

Mein Sourcecode:

Globale Vars:

Delphi-Quellcode:

var
  Browser : array of TWebBrowser;
  Sheet : array of TTabSheet;
  AnzSheets : Integer = 0;

Code zum erstellen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  SetLength(Sheet, AnzSheets + 1);
  SetLength(Browser, AnzSheets + 1);

  Sheet[AnzSheets] := TTabSheet.Create(PageControl1);
  Sheet[AnzSheets].Parent := PageControl1;
  Sheet[AnzSheets].PageControl := PageControl1;
  Browser[AnzSheets] := TWebBrowser.Create(Sheet[AnzSheets]);
  Inc(AnzSheets);
end;

[sakura]

Du musst den Browser einfach mal casten, dann kannst Du Parent auch wieder setzen.

Delphi-Quellcode:

TOleControl(WebBrowser1).Parent := Self;

Ursache: IWebBrowser definiert eine eigene (von der VCL unabhängige) Parent-Eigenschaft, diese ist nur Read-Only. Durch das Cast, kommst Du zur VCL-Eigenschaft Parent.

...:cat:...