Тема: PageControl
Показать сообщение отдельно
  #3  
Старый 12.10.2013, 21:13
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Понятно, опять в очередной раз товарища в гугле забанили , тогды вот:
Код:
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;
Ответить с цитированием