Du könntest es z.B. so lösen:
Delphi-Quellcode:
procedure TForm18.TreeView1DragChange(SourceItem, DestItem: TTreeViewItem;
var Allow: Boolean);
begin
Allow := copy (DestItem.text, 1,1) <> '@';
end;
Dann wird das Drop nur akzeptiert, wenn die übergeordneten Knoten der User als Ziel ausgewählt werden.
Hallo Harry,
Deine Lösung war genau das, wonach ich suchte.
Funktioniert einwandfrei.
Vielen Dank.