Delphi VCL拖放中的错误？

我用Delphi2007编译的应用程序在网格之间有拖放功能，大多数情况下运行良好。但有时我会被随机访问。我把它调试成VCL中的Controls.pas方法DragTo

它是这样开始的：

begin
  if (ActiveDrag <> dopNone) or (Abs(DragStartPos.X - Pos.X) >= DragThreshold) or
    (Abs(DragStartPos.Y - Pos.Y) >= DragThreshold) then
  begin
    Target := DragFindTarget(Pos, TargetHandle, DragControl.DragKind, DragControl);

可能是因为。。。所以我的问题是

有没有人有过类似的拖放问题

如果检测到DragControl=nil，如何取消当前拖放

编辑： 目前我没有这个解决方案，但我可以添加一些更多的信息。这些网格称为超级网格。这是我们为满足需要而开发的内部组件。它从Devexpress继承TcxGrid。我认为（但不确定）当用户在网格重新加载数据的同时拖动网格行时，会出现这个问题。不知何故，对当前行的引用变为零。从长远来看，我们计划用同样继承自TcxGrid的粗体感知网格（正如我们对Delphi使用粗体）来取代这个超级网格。然后，一旦数据发生更改（用户或代码不刷新），网格就会更新，希望这能解决问题

不，我在VCL的拖放方面从来没有遇到过任何（这类）问题，而且我在这方面有相当多的经验

DragControl

是控制单元的本地控制，因此如何在生产代码中检测

DragControl=nil

？通常情况下，没有必要检查它，至少我从来没有检查过。通过调用

CancelDrag

来取消拖动操作，然后在不接受目标上释放鼠标或按ESC键。正如您已经注意到的，该例程仅在

DragObject nil

时调用

DragDone

。因此，似乎

DragObject

为零已经表示没有正在进行的拖动操作（不再）

此外，您观察到的AV源来自

控件中的特定行。DragTo

似乎是错误的。在正常拖放操作中，

DragControl

为

nil

不会导致AV。但是，遵循Controls.DragFindTarget，在拖放和停靠操作中可能会出现问题，但您没有提到进行任何停靠

---

你能澄清一下在什么情况下，或者用什么代码出现这个“bug”吗？

你考虑过与Shell扩展的交互吗？我用TOpenDialog遇到了类似的问题。很好的问题。我没有从一个控件到另一个控件使用VCL内置拖放的经验，但如果我真的需要这样做，我会尝试A.Melander的代码而不是这个主题区域的裸VCL，看看这里是否有演示和一些更可靠的代码；我也有类似的拖放问题（Delphi2007）。但奇怪的是，这种问题只有在使用“netviewer”远程运行程序时才会出现（而且经常出现）。我可以确认，我也有类似的问题，它确实与“当用户在网格重新加载数据的同时拖动网格行时出现问题”有关。当我在完成DD后放弃数据重新加载时，AV消失了。

procedure CancelDrag;
begin
 if DragObject <> nil then DragDone(False);
 DragControl := nil;
end;

procedure DragInitControl(Control: TControl; Immediate: Boolean; Threshold: Integer);
var
  DragObject: TDragObject;
  StartPos: TPoint;
begin
  DragControl := Control;
  try
    DragObject := nil;
    DragInternalObject := False;    
    if Control.FDragKind = dkDrag then
    begin
      Control.DoStartDrag(DragObject);
      if DragControl = nil then Exit;
      if DragObject = nil then
      begin
        DragObject := TDragControlObjectEx.Create(Control);
        DragInternalObject := True;
      end
    end
    else
    begin
      Control.DoStartDock(DragObject);
      if DragControl = nil then Exit;
      if DragObject = nil then
      begin
        DragObject := TDragDockObjectEx.Create(Control);
        DragInternalObject := True;        
      end;
      with TDragDockObject(DragObject) do
      begin
        if Control is TWinControl then
          GetWindowRect(TWinControl(Control).Handle, FDockRect)
        else
        begin
          if (Control.Parent = nil) and not (Control is TWinControl) then
          begin
            GetCursorPos(StartPos);
            FDockRect.TopLeft := StartPos;
          end
          else
            FDockRect.TopLeft := Control.ClientToScreen(Point(0, 0));
          FDockRect.BottomRight := Point(FDockRect.Left + Control.Width,
            FDockRect.Top + Control.Height);
        end;
        FEraseDockRect := FDockRect;
      end;
    end;
    DragInit(DragObject, Immediate, Threshold);
  except
    DragControl := nil;
    raise;
  end;
end;