[leonw]

Здравствуйте! как сделать чтобы на активном вебе открывал сайт, а то у меня только на последней страничке открывает а на других нехочит

Код:

procedure TForm1.NewListClick(Sender: TObject);
begin
inc(l1);
  bsskinTabSheet:= TTabSheet.Create(Self);
  bsskinTabSheet.PageControl:=bsSkinPageControl1;
  bsskinTabSheet.Caption:='New'+IntToStr(l1+1);
  bsSkinPageControl1.ActivePage:=bsskinTabSheet;
web:=TWebBrowser.Create(bsskinTabSheet);
web:= TWebBrowser.Create(Self);
  TWinControl(web).Name:= 'NewWebBrowser'+IntToStr(l1+1);
  TWinControl(web).Parent:= bsskinTabSheet;
  web.Align := alClient;
  web.Navigate('index.html');
end;

кнопка

Код:

procedure TForm1.Image5Click(Sender: TObject);
begin
web.Navigate(bsSkinComboBox1.Text);
end;