Примеры использования Drag and Drop для различных визуальных компонентов

Code:

Accept := (Sender = Source) and

   ([htOnLabel,htOnItem, htOnIcon] * ListView2.GetHitTestInfoAt(x, y) = []);

// пересечение множеств должно быть пустым - запрещаем накладывать элементы

Code:

ListView2.Selected.SetPosition(Point(X,Y));

Code:

var

Node, SelNode: TTreeNode;

begin

Node := TreeView1.GetNodeAt(x, y);

// находим узел-приемник

Accept := (Sender = Source) and (Node <> nil);

if not Accept then

   Exit;

SelNode := Treeview1.Selected;

while (Node.Parent <> nil) and (Node <> SelNode) do

begin

   Node := Node.Parent;

   if Node = SelNode then

     Accept := False;

end;