Delphi 怎么实现浏览器中超链接的拖拽

Question

Delphi 怎么实现浏览器中超链接的拖拽。这个功能相当的好。。自己不会实现。
就像遨游一样，当拖拽一个链接的时候，在新的浏览器中打开。急速浏览器公布了源代码，但是编译不了。仔细看代码也没找见拖拽功能的实现。知道的大哥们，提示一下。
谢谢

Answer 1

onmousemove
{
get the current link content;
if(state.contains(ss.left)
shellexecute();
}

Answer 2

//get the current link content;
怎么实现我想用 Delphi自带的webbrower来做

Answer 3

这里有个代码，大概可以实现获取链接。不过好像“急速浏览器”没那么复杂啊
procedure TForm1.getHtmlCtrlName();
var
  E:IHTMLElement;
  p:TPoint;
begin
  p := Mouse.CursorPos;
  p := wb.ScreenToClient(p);
  
  E := (wb.Document as IHTMLDocument2).elementFromPoint(p.X,p.Y);
  Label1.Caption := Format('className:%s,id:%s,tagName:%s,innerHTML:%s;X:%d;Y:%d',[E.className,E.id,E.tagName,E.innerHTML,p.X,p.Y]);
  try
    Label2.Caption := E.getAttribute('href',1);
  except
    Label2.Caption := '不是超链接';
  end;  end;  

Answer 4

没完全写过你说的需求，但是我写过从任意地方拖一个链接到窗口，窗口能接收到那个链接。
然后应该能使用代码在新的浏览器中打开那个链接吧。
接收的方式有两种， 一种是将窗口注册为oleDrop对象，然后在onDrop中获取超链接，另一种是使用TDragDrop组件中的接收超链接的那个组件。

Answer 5

用的哪个WEB控件？
这里http://hi.baidu.com/orxor/blog/item/dad19f3ced930705baa16708.html

Answer 6

好像不需要代码，webbrower直接可以打开连接。
我需要的是，类似 遨游 一样。在网页中拖动一个连接，会在新页面打开。或者拖动选取的几个字，会打开搜索