Понятно, опять в очередной раз товарища в гугле забанили
, тогды
вот:
Код:
var
web:TWebBrowser;
tab: TTabSheet;
begin
tab := TTabSheet.Create(PageControl);
tab.PageControl := PageControl;
tab.Visible := true;
PageControl.ActivePage := tab;
web := TWebBrowser.Create(tab);
TOleControl(web).Parent := tab;
web.Visible := true;
end;