动态增加的一个带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 广告
StormProxies是一家提供动态代理服务器服务的企业，旨在帮助用户更好地管理网络访问和安全。以下是一些关于StormProxies的IP动态代理服务的特点：1. 高匿名性：StormProxies的动态代理服务器具有高匿名性，可以有效...
点击进入详情页
本回答由Storm代理提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
