Twebbrowser auf einem TabSheet zur Laufzeit erzeugen

[marabu]

Hallo Klaus,

besser du machst es so:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  ts: TTabSheet;
  wb: TWebBrowser;
begin
  ts := TTabSheet.Create(PageControl);
  ts.Caption := 'Window &' + Chr(Ord('0') + PageControl.PageCount);
  ts.PageControl := PageControl;
  wb := TWebBrowser.CreateParented(ts.Handle);
  wb.Align := alClient;
  ts.InsertControl(wb);
  PageControl.ActivePage := ts;
  wb.Navigate('http://www.google.de');
end;

Grüße vom marabu