Nemam isečak stvarnog koda, ali ovako bi trebalo da radi:
Code:
procedure Tform1.ShellListDragOver(Sender, Source: TObject;
X, Y: Integer; State: TDragState; var Accept: Boolean);
var
item: TListItem;
begin
item := ShellList.GetItemAt(X, Y);
if item <> nil then
Label9.Caption := item.Caption;
Accept := (Source = neka_kontrola_iz_koje_počinje_drag)
and (item<>nil)
and (OdabraniItemMožeBitiDropTarget(item));
end;