Не смотря на заверения Я.Бровина о том что проблемы с 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;