Вкладки в браузере, работает только первая

@danilio00 · Регистрация: 13.04.2015

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

Привет всем.Делал браузер и наткнулся на проблему с вкладками , они создаются , но работает только в первой.Помогите исправить

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <fstream.h>
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma link "CGAUGES"
#pragma resource "*.dfm"
TForm1 *Form1;
int col=2;
fstream f;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
CppWebBrowser1 -> Navigate(StringToOleStr(ComboBox1->Text));
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
CppWebBrowser1 -> Navigate(StringToOleStr(ComboBox1->Text));
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
CppWebBrowser1->GoHome();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
CppWebBrowser1->GoSearch();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
CppWebBrowser1->GoSearch();        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn4Click(TObject *Sender)
{
CppWebBrowser1->GoBack();        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn5Click(TObject *Sender)
{
CppWebBrowser1->GoForward();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn6Click(TObject *Sender)
{
CppWebBrowser1->Refresh();
}
//---------------------------------------------------------------------------
 
 
 
 
 
 
 
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if((Key=='T')&&(Shift==TShiftState() << ssCtrl))
{
TTabSheet* newtab;
col++;
newtab = new TTabSheet(this);
newtab->PageControl = PageControl1;
newtab->Name = AnsiString("TabSheet")+col;
newtab->Caption = "NewTab";
TCppWebBrowser* newbrowser;
newbrowser = new TCppWebBrowser(PageControl1);
newbrowser->TOleControl::Parent = newtab;
newbrowser->TOleControl::Name = AnsiString("CppWebBrowser")+col;
newbrowser->TOleControl::Align = alClient;
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->KeyPreview=true;
TTabSheet* newtab;
col++;
newtab = new TTabSheet(this);
newtab->PageControl = PageControl1;
newtab->Name = AnsiString("TabSheet")+col;
newtab->Caption = "NewTab";
TCppWebBrowser* newbrowser;
newbrowser = new TCppWebBrowser(PageControl1);
newbrowser->TOleControl::Parent = newtab;
newbrowser->TOleControl::Name = AnsiString("CppWebBrowser")+col;
newbrowser->TOleControl::Align = alClient;
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::BitBtn7Click(TObject *Sender)
{
delete PageControl1->ActivePage;  
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn8Click(TObject *Sender)
{
TTabSheet* newtab;
newtab = new TTabSheet(this);
col++;
newtab->PageControl = PageControl1;
newtab->Name = AnsiString("TabSheet")+col;
newtab->Caption = "вкладка";
TCppWebBrowser* newbrowser;
newbrowser = new TCppWebBrowser(PageControl1);
newbrowser->TOleControl::Parent = newtab;
newbrowser->TOleControl::Name = AnsiString("CppWebBrowser")+col;
newbrowser->TOleControl::Align = alClient;
 
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::HistoryChange(TObject *Sender)
{
char q[100];
f.open("C:\\i\\history.txt");
while (!f.eof())
 
{
f>>q;
if (q!="") History-> Items->Add(q);
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::CppWebBrowser1DownloadBegin(TObject *Sender)
{
History->Text=CppWebBrowser1->LocationURL;
        History->Items->Add(History->Text);
        TStringList* file;
        file=new TStringList;
        file->LoadFromFile("C:\\i\\History.txt");
        file->Add(History->Text);
        file->SaveToFile("C:\\i\\History.txt");
        delete file;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::PageControl1Change(TObject *Sender)
{
 
}
//---------------------------------------------------------------------------

В с++ новичок, если надо что-то еще скинуть скину

@_Dimon_ · 19.04.2015, 23:03

потому что все button-ы привязаны к CppWebBrowser1, а newbrowser хоть и создается, но управлять ним невозможно

Добавлено через 2 минуты
тут можно сделать фрейм с кнопками и браузером, и создавать в новой вкладке уже целый фрейм

@nick42 · 20.04.2015, 08:35

В моих "хелпах" сохранилась запись по этой теме; может быть пригодится, если вдумчиво подсоединить...

C++

void __fastcall TForm1::make_tab() 
{        /*  TCppWebBrowser* newbrowser[50] ;  */
int nu = PageControl1->PageCount+1 ;
newtab = new TTabSheet(this);
newtab->PageControl = PageControl1;
for (int i=0;i<PageControl1->PageCount;i++)
 if (!PageControl1->Pages[i]) { nu=i; break; }    //  ->Caption == ""
newtab->Name = AnsiString("TabSheet")+IntToStr(nu);
newtab->Caption = "Закладка "+IntToStr(num+1);
newbrowser[num] = new TCppWebBrowser(this);  //  PageControl1
newbrowser[num]->TOleControl::Parent = newtab;  //
newbrowser[num]->TOleControl::Name = AnsiString("myWebBrowser")+
                     IntToStr(PageControl1->PageCount+1);
newbrowser[num]->TOleControl::Align = alClient;
 newbrowser[num]->OnStatusTextChange = CppWebBrowser1StatusTextChange;
 newbrowser[num]->OnProgressChange = CppWebBrowser1ProgressChange;
 newbrowser[num]->OnNavigateComplete2 = make_info;
 newbrowser[num]->GoHome();
num++;
}

@danilio00 · 20.04.2015, 09:11 **[ТС]**

А как это правильно сделать ?
я про фреймы

@volvo · 20.04.2015, 10:22

danilio00, без фреймов прекрасно все делается: после создания WebBrowser-а в новой вкладке, просто занеси:

C++

1	newTab->Tag = reinterpret_cast<int>(newbrowser);

, а обработчики нажатия кнопок чуть-чуть поправь:

C++

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    reinterpret_cast<TCppWebBrowser*>(PageControl1->ActivePage->Tag)->Navigate(StringToOleStr(ComboBox1->Text));
}

, и так - со всеми кнопками, которые сейчас используют CppWebBrowser1

@danilio00 · 20.04.2015, 12:31 **[ТС]**

volvo,Спасибо , выручил

@_Dimon_ 1408 / 571 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	19.04.2015, 23:03	2
	потому что все button-ы привязаны к CppWebBrowser1, а newbrowser хоть и создается, но управлять ним невозможно Добавлено через 2 минуты тут можно сделать фрейм с кнопками и браузером, и создавать в новой вкладке уже целый фрейм 0

@danilio00 0 / 0 / 1 Регистрация: 13.04.2015 Сообщений: 32
	20.04.2015, 09:11 [ТС]	4
	А как это правильно сделать ? я про фреймы 0

@danilio00 0 / 0 / 1 Регистрация: 13.04.2015 Сообщений: 32
	20.04.2015, 12:31 [ТС]	6
	volvo,Спасибо , выручил 0

Вкладки в браузере, работает только первая

Решение