[leonw]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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;

кнопка

Код:

1 2 3 4

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