//---------------------------------------------------------------------------
void __fastcall TForm1::CppWebBrowser1NewWindow2(TObject *Sender,
LPDISPATCH *ppDisp, TOLEBOOL *Cancel)
{
TTabSheet *pts = new TTabSheet(this);
pts->PageControl = PageControl1;
TCppWebBrowser *wb = new TCppWebBrowser(pts);
wb->ParentWindow = pts->Handle;
wb->SetBounds(pts->ClientRect.Left, pts->ClientRect.Top, pts->ClientRect.Right, pts->ClientRect.Bottom);
wb->OnNewWindow2 = CppWebBrowser1NewWindow2;
pts->OnResize = TabSheet1Resize;
*ppDisp = wb->Application;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TabSheet1Resize(TObject *Sender)
{
TTabSheet* pts = dynamic_cast<TTabSheet*>(Sender);
if(!pts) return;
TRect r = pts->ClientRect;
pts->Controls[0]->SetBounds(r.Left, r.Top, r.Right, r.Bottom);
}
//---------------------------------------------------------------------------
Надстройка под Internet Explore
Maxton и Opera очень гордятся тем, что у них открывается не новая копия проги а закладка в ней, как это реализовать?
Цитата:
Originally posted by zoh
Maxton и Opera очень гордятся тем, что у них открывается не новая копия проги а закладка в ней, как это реализовать?
Maxton и Opera очень гордятся тем, что у них открывается не новая копия проги а закладка в ней, как это реализовать?
Код:
Цитата:
Originally posted by GIZMO
Код:
void __fastcall TForm1::TabSheet1Resize(TObject *Sender)
{
...
pts->Controls[0]->
...
}
{
...
pts->Controls[0]->
...
}
Да вот это лажа, поторопился, с ресайзом нада что-то делать. Тебе д/з.