[Blackster]

привет у меня все старый вопрос как сделать так чтоб pagecontroll открывал вкладки при каждом новом открытии страницы в webbrowser,тоесть как в опере, пользовался поиском но ничего не нашёл, пользовался таким кодом но он не пашет

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TForm4.sBitBtn5Click(Sender: TObject); var T:TTabSheet;     B:TButton; begin  T := TTabSheet.Create(nil);    T.PageControl := PageControl1;    T.Caption := '-XXX-';    PageControl1.ActivePage := T;   end;     ...   procedure TForm4.PageControl1Change(Sender: TObject); begin if PageControl1.PageCount<>0 then TWebBrowser(PageControl1.ActivePage.Controls[0]).Navigate('/'); end;

всё время выбивает ошибку не при компиляции, а при работе проги когда открываешь страницу в браузере, подскожите в чём проблемма и как её решить. Заранее благодарен.