привет у меня все старый вопрос как сделать так чтоб pagecontroll открывал вкладки при каждом новом открытии страницы в webbrowser,тоесть как в опере, пользовался поиском но ничего не нашёл, пользовался таким кодом но он не пашет
Код:
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;
всё время выбивает ошибку не при компиляции, а при работе проги когда открываешь страницу в браузере, подскожите в чём проблемма и как её решить. Заранее благодарен.