动态创建的TWEBBROWSER无法全屏

Question

我的FORM上有一个PageControl1，我在其上动态创建一个TabSheet，并动态创建一个TWebBrowser在TabSheet上，但是新创建的TWebBrowser不知道为什么都很小。我是想让它跟TabSheet一样大小的。我尝试了各种属性设置都不行。但奇怪的是如果不是动态创建，只要Align:=alClient就可以达到目的。请各位大佬不吝赐教～  procedure TForm1.Button1Click(Sender: TObject);
var
  tabsheet:TTabSheet;
      web:TWebBrowser;
begin
  tabsheet:=TTabSheet.Create(Self);
  tabsheet.PageControl:=PageControl1;
  
  PageControl1.ActivePageIndex:=PageControl1.PageCount-1;
  web:=TWebBrowser.Create(Self);
  web.ParentWindow:=tabsheet.Handle;
   web.Align:=alClient;
//web.Top:=0;
  //web.Left:=0;
  //web.Width:=PageControl1.Width;
  //web.Height:=PageControl1.Height;
  //web.FullScreen:=TRUE;  //web.ClientToWindow();
  //web.Width:=600;
  //web.Height:=500;
  end;
   

Answer 1

我把web.Width和    web.Height设置成tabsheet的，问题似乎解决。但实际浏览网页的时候还是有某些网页过小。大概是网页HTML的设置问题。但我想强制变大却不行。我用web.FullScreen:=TRUE没用。

Answer 2

咳现在问题变成这样的：我是想在浏览器生成新页面时弄个新tabsheet,把新页面在新的tabsheet中打开。这已经实现了。问题是新打开的页面不全屏。

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  tabsheet:TTabSheet;
  web:TWebBrowser;
begin
  tabsheet:=TTabSheet.Create(Self);
  tabsheet.PageControl:=PageControl1;
  tabsheet.Caption:='标签';
  PageControl1.ActivePageIndex:=PageControl1.PageCount-1;
  web:=TWebBrowser.CreateParented(tabsheet.Handle);
  tabsheet.InsertControl(web);
  web.Align:=alClient;
end;

Answer 4

tabsheet.InsertControl方法是关键。

Answer 5

mwy654321 来迟了一步，只能意思下了～