用WebBrowser打开一个网页，点击网页上的链接，如何获得所点击链接的地址

hlgchina 2007-12-20 09:17:14

...全文

254 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

CYDong0423 2007-12-20

打赏
举报

WebBrowser的一个事件 StatusTextChange
WebBrowser事件的倒数第六个

hlgchina 2007-12-20

打赏
举报

这个WebBrowserStatusTextChange在那里找到啊

CYDong0423 2007-12-20

打赏
举报

补充一句 //点击 self.FStatusText是个Label1
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ShowMessage(self.FStatusText.Caption);
end;

CYDong0423 2007-12-20

打赏
举报

procedure TForm1.WebBrowserStatusTextChange(Sender: TObject;
const Text: WideString);
begin
self.FStatusText.Caption := Text; //你将鼠标移到链接地址返回URL地址
end;

WebBrowser.LocationURL //当前页面的URL地址

brightyang 2007-12-20

打赏
举报

hangzhou_hammer 2007-12-20

打赏
举报

这个方法有漏洞，如果网页设置了；不显示连接的话那怎么办？

无条件为你 2007-12-20

打赏
举报

WebBrowser事件页面中的第一个事件是：WebBrowser1BeforeNavigate2

你直接双击进入该事件，得到：

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
showmessage(URL);//这个就是访问的当前地址。
end;