Переключение вкладок PageControl

@SoneLore · Регистрация: 06.12.2015

Студворк — интернет-сервис помощи студентам

Доброго времени суток. Столкнулся с такой проблемой. Вот код, который должен по нажатию кнопок открывать новую вкладку, в которой будет новый браузер. Когда создается новая вкладка, на всех вкладках действия браузера повторяются, тобишь он один.

По кнопке

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
void __fastcall TForm1::Button7Click(TObject *Sender)
{
TTabSheet* newtab;
TCppWebBrowser* newbrowser;
newtab = new TTabSheet(this);
newtab->PageControl = PageControl1;
newtab->Name = AnsiString("TabSheet")+IntToStr(PageControl1->PageCount+1);
PageControl1->SelectNextPage(true) ;
newtab->Caption = ComboBox1->Text;
newbrowser = new TCppWebBrowser(PageControl1);
newbrowser->TOleControl::Parent = newtab;
newbrowser->TOleControl::Name = AnsiString("CppWebBrowser")+IntToStr(PageControl1->PageCount+1);
newbrowser->TOleControl::Align = alClient;
 
newbrowser->Navigate(StringToOleStr(ComboBox1->Text));
 
 
}

По горячим клавишам

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if((Key=='T')&&(Shift==TShiftState() << ssCtrl))
{
TTabSheet* newtab;
TCppWebBrowser* newbrowser;
newtab = new TTabSheet(this);
newtab->PageControl = PageControl1;
newtab->Name = AnsiString("TabSheet")+IntToStr(PageControl1->PageCount+1);
newtab->Caption = "NewTab";
newbrowser = new TCppWebBrowser(PageControl1);
newbrowser->TOleControl::Parent = newtab;
newbrowser->TOleControl::Name = AnsiString("CppWebBrowser")+IntToStr(PageControl1->PageCount+1);
newbrowser->TOleControl::Align = alClient;
}
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->KeyPreview=true;
}
//---------------------------------------------------------------------------

И еще вопрос. Чем CppWebBrowser отличается от WebBrowser?

@volvo · 07.12.2015, 10:53

Сообщение от SoneLore

Когда создается новая вкладка, на всех вкладках действия браузера повторяются

Проверил, ничего не повторяется, нормально создается одна вкладка с тем адресом, который выбран в ComboBox-е. Что-то в другом месте, значит, намудрено. Показывай проект, который воспроизводит ошибку.

Кстати, было бы проще вынести создание вкладки, размещение на ней браузера и переход по ссылке в отдельной функции, а потом просто эту функцию вызывать из двух событий.

@nick42 · 07.12.2015, 11:57

Сообщение от volvo

Проверил, ничего не повторяется, нормально создается

Подтверждаю. У меня тоже код работает (проверил только по кнопке).

@SoneLore · 07.12.2015, 13:28 **[ТС]**

Все работает, просто неправильно забросил сам браузер. Теперь вопрос, как включить Silent на всех браузерах? Все время ошибка сценария. Где именно в коде добавить Silent на браузера?

@volvo · 07.12.2015, 13:33

После создания, но перед Navigate

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@SoneLore 0 / 0 / 0 Регистрация: 06.12.2015 Сообщений: 39
	07.12.2015, 13:28 [ТС]
	Все работает, просто неправильно забросил сам браузер. Теперь вопрос, как включить Silent на всех браузерах? Все время ошибка сценария. Где именно в коде добавить Silent на браузера? 0

@volvo Супер-модератор 33403 / 21513 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	07.12.2015, 13:33
	После создания, но перед Navigate 0

Переключение вкладок PageControl

Решение