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

Question

如题!

Answer 1

标题就是
  webbrowser1.LocationName

Answer 2

具体代码：
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;

Answer 3

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

Answer 4

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

Answer 5

WebBrowser.LocationName获得的标题，有时是不准确的，可以用下面的方法Use msHtml；.......
var
  Title:string;
begin
  Title:=(wbVoice.Document as IHTMLDocument2).title;
  Form1.caption:=LeftStr(Title,6);
end;
........