WebBrowser给TabSheet的caption赋值

Question

有一个PageControl1，在它上面添加了一个TabSheet1，在TabSheet1上添加了一个WebBrowser1,WebBrowser1加载一个页面后，我想把页面的title赋值给TabSheet1，代码如下：TTabSheet(TWinControl(WebBrowser1.ParentWindow)).Caption:='aa';但是出错了，因为TWinControl(WebBrowser1.ParentWindow)的个数是0，没有获得TabSheet1，看大家遇到过这种情况没？谢谢！

Answer 1

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  TTabsheet(TOleControl(self.WebBrowser1).Parent).Caption:=  Webbrowser1.LocationName;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
self.WebBrowser1.Navigate('www.baidu.com');
end;