Перемещение из ListBox в TreeView (Drag and Drop)

[Pavel M]

Добрый день!

 

TreeRazdel (TTreeView) отражает разделы с подкатегориями

 

ListDocs (TListBox) отражает элементы выбранной категории

 

Необходимо перемещение элементов ListDocs по категориям (с изменениями в БД)

 

Включаю AllowDrag для ListDocs и TreeRazdel.

procedure TFormMain.TreeRazdelDragDrop(Sender: TObject;
  const [Ref] Data: TDragObject; const [Ref] Point: TPointF);

begin

if Data.Source is TListBoxItem then
   begin
     idRazdel := TreeRazdel.ItemByPoint(Point.X,Point.Y).Tag;
     idDocs := (Data.Source as TListBoxItem).Tag;

     //(Data.Source as TListBoxItem).Free; - ДАЁТ ОШИБКУ

     if (idRazdel > 0) and (idDocs >0) then  
     MoveDocs(idDocs, idRazdel); //процедура перемещения элемента в другой раздел

   end;

end;

Проблемы:

1) Элементы ListBox реально переносятся в TTreeView (как их сразу же уничтожать?)

2) При перемещении в свободное место TTreeView (не в категорию) - ошибка

3) При включении у TTreeView  DragMode := dmAutomatic не возможно выбрать его элементы.

[Pavel M]

Ещё актуально.

Почему ListBoxItem переносится в TreeView?

 

Можно конечно делать в TFormMain.TreeRazdelDragDrop костыль

(Data.Source as TListBoxItem).Visible := False;

но это же не выход?