VirtualStringTree und Drag'n'Drop

[CalganX]

Hi,
so... Habe es gerade selber lösen können.

Für die, die an der Lösung interessiert sind:

Delphi-Quellcode:

procedure TfrmMain.vstDataDragOver(Sender: TBaseVirtualTree;
  Source: TObject; Shift: TShiftState; State: TDragState; Pt: TPoint;
  Mode: TDropMode; var Effect: Integer; var Accept: Boolean);
var
  pUsedNode, pTargetNode: PVirtualNode;
begin
  pUsedNode := vstData.FocusedNode;
  pTargetNode := vstData.DropTargetNode;

  if (pUsedNode <> nil) and (pTargetNode <> nil) then begin
    Accept := (pUsedNode.Parent = pTargetNode.Parent);
  end;
end;

Funktioniert einwandfrei.

Chris