动态增加的一个带webbrowser的tabsheet,怎样让网页加载完成时,tabsheet的caption显示为网页标题?
1个回答
展开全部
procedure TForm1.Button1Click(Sender: TObject);Vartabsheet:TTabSheet;
web:TWebBrowser;begintabsheet:=TTabSheet.Create(Self);
tabsheet.PageControl:=PageControl1;
tabsheet.Caption:='这是新加的页';
PageControl1.ActivePageIndex:=PageControl1.PageCount-1;
web:=TWebBrowser.Create(Self);
web.ParentWindow:=tabsheet.Handle;
web.Top:=0;
web.Left:=0;
web.Width:=300;
web.Height:=250;
//注意,使用完后,需要释放建立的对象!
web:TWebBrowser;begintabsheet:=TTabSheet.Create(Self);
tabsheet.PageControl:=PageControl1;
tabsheet.Caption:='这是新加的页';
PageControl1.ActivePageIndex:=PageControl1.PageCount-1;
web:=TWebBrowser.Create(Self);
web.ParentWindow:=tabsheet.Handle;
web.Top:=0;
web.Left:=0;
web.Width:=300;
web.Height:=250;
//注意,使用完后,需要释放建立的对象!
Storm代理
2023-07-25 广告
2023-07-25 广告
StormProxies是一家提供动态代理服务器服务的企业,旨在帮助用户更好地管理网络访问和安全。以下是一些关于StormProxies的IP动态代理服务的特点:1. 高匿名性:StormProxies的动态代理服务器具有高匿名性,可以有效...
点击进入详情页
本回答由Storm代理提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询