如何提取webbrowser当前页的标题,并截6个字赋给一个Tabsheet的caption?望大虾不吝赐教!

[emin]

如题!

[linzhisong]

标题就是
webbrowser1.LocationName

[linzhisong]

具体代码：
procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('http://www.chinaren.com');

end;

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
cancel:=true;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
caption:=webbrowser1.LocationName+'=='+copy(webbrowser1.LocationName,1,6);

end;

[emin]

请问TForm1.WebBrowser1NewWindow2是哪个事件的函数吗?可以解释一下吗？谢谢!

[dggym]

TForm1.WebBrowser1NewWindow2 当然是 Form1中WebBrowser1的NewWindow2事件

[GDU]

WebBrowser.LocationName获得的标题，有时是不准确的，可以用下面的方法

Use msHtml；

.......
var
Title:string;
begin
Title:=(wbVoice.Document as IHTMLDocument2).title;
Form1.caption:=LeftStr(Title,6);
end;
........