begin

   result:=dataObj.GetData(fe,medium);

   //按照fe的格式将数据存入内存的一块全局区域，注意medium

   hData:=HGLOBAL(GlobalLock(medium.hGlobal));

   //GlobalLock锁定这块区域，并返回指向它的指针

   Form1.Memo1.Text:=pchar(hData);

   GlobalUnlock(hData);//接触锁定

   GlobalFree(hData);//释放

 end;

end;

现在我们可以测试它了。本文只是大概的介绍了一下OLE Drag and Drop，只要仔细研究，大家可以实现更复杂的操作。

上一页  [1] [2] [3]