Drag & Drop

[DirtyBorov 31]

Не смотря на заверения Я.Бровина о том что проблемы с D&D в ХЕ7 будут исправлены, не работает в ХЕ8. По крайней мере для TTreeView. 

События просто не происходят. Может я что то делаю не так? Поясните, знающие.

procedure TFrameVRT.AlgorithmTreeDragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF);
begin
  if Data.Source is TFmxObject then
     TFmxObject(Data.Source).Parent := AlgorithmTree;
end;

procedure TFrameVRT.AlgorithmTreeDragOver(Sender: TObject; const Data: TDragObject; const Point: TPointF;
  var Operation: TDragOperation);
begin
  inherited;
  Operation := TDragOperation.Copy;// или Move
end;