如何得到WebBrowser控件上的链接提示？up有分！

Question

如何得到WebBrowser控件上的链接提示？我想像IE一样当鼠标指到某个连接，就可以得到Url,这样我可以在我自己的状态拦显示出来！WebBrowser如何做？？？

Answer 1

WebBrowser.OnStatusTextChange
//用获得的Text给状态栏赋值

Answer 2

当然也可加上图标!如把一图标放到ImageList中!procedure TMain.WebBrowserStatusTextChange(Sender: TObject; const Text: WideString);
begin
  StatusText:=Text;
  StatusBar.Repaint;
end;procedure TMain.StatusBarDrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar.Canvas do
  begin
    FillRect(Rect);
    ImageList.Draw(StatusBar.Canvas,Rect.Left,Rect.Top,0);
    TextOut(Rect.left + 20, Rect.top + 1, StatusText);
  end;
end;