DragDrop mit TTreeViewItem als Ziel

[Harry Stahl]

DragDrop müsste jedenfalls so lauten:

Delphi-Quellcode:

procedure TFormViewZuordnen.TreeViewEBilanzDragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF);
var
  Item: TTreeViewItem;
begin
  log('DragDrop');
  item:= (Sender as TTreeViewItem); //.ItemByPoint(Point.X, Point.y);
// Item:= TTreeView(Sender).ItemByPoint(Point.X, Point.y);
  log(Item.Text);
end;

Wenn das immer noch nicht funktioniert: Mach doch bitte mal ein kurzes Demo (also die Listview mit Items drin (und Treeview mit Items) und mit den hier gezeigten Events) und lade es hier (ohne Exe) einmal hoch.