1,594
社区成员
发帖
与我相关
我的任务
分享用WebBrowser打开一个网页，点击网页上的链接，如何获得所点击链接的地址
用WebBrowser打开一个网页，点击网页上的链接，如何获得所点击链接的地址
...全文
请发表友善的回复…
发表回复
CYDong0423 2007-12-20
- 打赏
- 举报
WebBrowser的一个事件 StatusTextChange
WebBrowser事件的倒数第六个
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;
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地址
const Text: WideString);
begin
self.FStatusText.Caption := Text; //你将鼠标移到链接地址返回URL地址
end;
WebBrowser.LocationURL //当前页面的URL地址
brightyang 2007-12-20
- 打赏
- 举报
up
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;
你直接双击进入该事件，得到：
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
showmessage(URL);//这个就是访问的当前地址。
end;
