（急）一个关于Shell Control Pack中实现拖放操作的问题，100分(100分)

我要将PTShellList中的一个或多个Items拖到另一个控件（PTListView)中，目标控件的
OnDragDrop事件和OnDragOver已写好，在源控件的OnMouseDown事件中加入以下代码：
if (button = mbLeft) then
with Sender as TPTShellList do
begin
if PTShellList.SelCount >= 0 then
BeginDrag(False);
end;
但却发现以下问题：
1、若将PTShellList的ptsloOleDrag、ptsloOleDrop属性设为True，那么在拖动操作时，
当鼠标到达PTListView区而抬起左键时，所拖动的东西并没有进入TPListView中，而是
当再次点击一下鼠标后才能放进去。
2、若将PTShellList的ptsloOleDrag、ptsloOleDrop属性设为False，那么拖动没有问题，
但却又出现另一个问题，就是在TPShellList中双击目录进入下一级目录时，被双击的目
录就和它下面的内容一起出现，好像没有刷新，非常不爽！而我确需要ChangeFloder功能。

不知那位高手能解决此问题，非常感谢！！！

upo

难道没人能解决吗？

问题已解决！

接受答案了.