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