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

emin 2003-05-08 06:03:04
如题!
...全文
31 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
GDU 2003-07-15
WebBrowser.LocationName获得的标题,有时是不准确的,可以用下面的方法

Use msHtml;

.......
var
Title:string;
begin
Title:=(wbVoice.Document as IHTMLDocument2).title;
Form1.caption:=LeftStr(Title,6);
end;
........
回复
dggym 2003-06-09
TForm1.WebBrowser1NewWindow2 当然是 Form1中WebBrowser1的NewWindow2事件
回复
emin 2003-05-08
请问TForm1.WebBrowser1NewWindow2是哪个事件的函数吗?可以解释一下吗?谢谢!
回复
linzhisong 2003-05-08
具体代码:
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;
回复
linzhisong 2003-05-08
标题就是
webbrowser1.LocationName
回复
相关推荐
发帖
网络通信/分布式开发
创建于2007-08-02

1573

社区成员

Delphi 网络通信/分布式开发
申请成为版主
帖子事件
创建了帖子
2003-05-08 06:03
社区公告
暂无公告