ole拖动

Question

ole拖动在VB中可以很容易将IE中链接拖到FORM的TEXT中
如：'接收IE窗口中的超级连接数据
Private Sub picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
  Text1 = Text1 & Data.GetData(vbCFText) & vbCrLf   'text1中显示的就是获取到的连接信息，你可以继续添加代码，实现自动判断是否为无效连接的目的
  Close #1
End Sub请问在DELPHI中如何实现???

Answer 1

Delphi没有现成的方法提供，自己实现IDropTarget接口：
窗体要实现IDropTarget接口就可以拖放，处理网址时判断扩展剪切板格式CFSTR_SHELLURL，到底
怎么进行处理微软也没给出例子。：（
Google搜索：CFSTR_SHELLIDLIST  CFSTR_SHELLURL
就可以找到。
    //http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/programmersguide/shell_basics/shell_basics_programming/transferring/clipboard.asp