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;