怎样实现网络收藏那样将网页中所选内容拖动到自己的程序即得到html源码(100分)

怎样实现网络收藏那样将网页中所选内容拖动到自己的程序即得到html源码,拖动后得到的应该是
html格式的源码才能分析其中的内容,有谁实现过,请指教

请各位富翁帮忙想一想

Dragdrop控件可以实现你的功能

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1035057

han.lab (2002-4-11 7:01:00)
-----------------------------------------------------------------------
我又来晚了。

Drag and Drop Component Suite是个不错的东东，可以从Torry's Delphi上下。
http://www.torry.net/draganddrop.htm
http://www.torry.net/vcl/system/draganddrop/dragdrop.exe
(421KB)

里面带有例子和使用帮助。

关键就是
1、FormCreate中的语句：
DropURLTarget.Register(Memo_DropOnMe)

2、DropURLTarget的Drop事件procedure DropURLTargetDrop...;
begin
Edit1.Text := DropURLTarget.URL;
WebBrowser1.Navigate (WideString(Edit1.Text));
end;

我用这个控件做了个试验程序，还不错。

不好意思,我想我的意思没表达清楚.我不是要拖动url,
而是网页里的内容(带html标记的内容)我拖动后得到的只是纯文字,
没有相应的格式,比如该段文字的字体是红色的,我想拖动后得到原本的样子,
也就是html格式.(也就是原来网页里是什么样的拖动过去后也是同样的)
请大家帮帮我

下面是关联到网页右键菜单上“采集网页选定部分”的html文档代码。
<script language="VBScript">
Sub OnContextMenu()
NCWEBPAGE=1
NCSELWEBPAGE=2
NCSELTEXT=3
NCALLTEXT=4
NCIMAGE=5
NCALLIMAGE=6
NCALLLINK=7
NCALLLINKTITLE=8
NCSELSOURCECODE=9
NCSOURCECODE=10
On Error Resume Next
set nc=CreateObject("NcActive.NcCollect")
if err<>0 then
MsgBox("网海拾贝没有正确安装")
else
call Nc.Gethtmldoc(NcSelWebPage,external.menuArguments.document) ‘如何实现？
end if
end sub
Call OnContextMenu()
</script>