动态增加的一个带webbrowser的tabsheet，怎样让网页加载完成时，tabsheet的caption显示为网页标题？

Question

同题
看过介绍关于这样类似的问题，都没有讲到动态创建webbrowser后，在网页加载完成是自动显示标题的谢谢

Answer 1

下面的示例代码是在一个Button的OnClick事件中完成的：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.Create(Self);
web.ParentWindow:=tabsheet.Handle;
web.Top:=0;
web.Left:=0;
web.Width:=300;
web.Height:=250;
web.Navigate('www.163.com/');
end;//注意，使用完后，需要释放建立的对象！

Answer 2

不好意思了，有点答非所问了！你可以自己写一个参数与WebBrowser的OnNavigateComplete2相同的过程，在该事件中，编写显示网页标题的代码，在动态创建WebBrowser控件时，将该过程赋给WebBrowser控件的OnNavigateComplete2事件。
例：
//这是自编的OnNavigateComplete2过程：
myNavigateComplete2(Sender: TObject;const pDisp: IDispatch;var URL: OleVariant);
begin
//在此处编写显示标题的代码！
end;web:=TWebBrowser.Create(Self);
web.parentWindow:=tabsheet;
web.OnNavigateComplete2:=myNavigateComplete2;
web.Navigate('http://www.163.com/');//兄台，试试吧，绝对是可以的！
//不过，对于显示出网页的标题的代码，我还没搞出来呢！
//估计是通过调用TWebBrowser控件的接口实现吧！
//还请兄台不吝赐教呢！