![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Здравствуйте! как сделать чтобы на активном вебе открывал сайт, а то у меня только на последней страничке открывает а на других нехочит
Код:
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; |
|
#2
|
||||
|
||||
|
Если я правильно тебя понял, то твоя проблема вот в чём:
web у тебя создаётся при каждом открытии вкладки, и по нажатию на кнопке в нём (как в последнем созданном) и срабатывает Navigate. Тебе нужно обращаться не к переменной web, а к bsSkinPageControl1.ActivePage, и от неё вычислять текущий вэббраузер. Ищи код для перечисления чилд-объектов. |