Drag Over Event

procedure Tfrm_UMS.lv_SMSSendListDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
   if (Source.ClassNameIs(_US_DRAG_ELTREE_OBJECT)) or (Source.ClassNameIs(_US_DRAG_CONTROL_OBJECT_EX)) then
      Accept := True
   else
      Accept := False;
end;

_US_DRAG_ELTREE_OBJECT        = 'TELTreeDragObject'
_US_DRAG_CONTROL_OBJECT_EX = 'TDragControlObjectEx'
Source.ClassNameIS 를 통해서 드래그 된 Object의 Class의 이름을 알 수 있다.
"Accept := True" 는 DragDrop를 허용, "Accept := False"는 DragDrop를 허용하지 않는다.