Drag & Drop mit Panel und TreeView: Merkwürdiges Verhalten

[Alexander]

Gerade noch einmal versucht und so funktioniert's:

Delphi-Quellcode:

procedure TDCubeButtonPanel.Self_DragDrop(sender: System.Object; e: System.Windows.Forms.DragEventArgs);
var
  node : TreeNode;
begin
  if (e.Data.GetDataPresent(typeof(TreeNode))) then
  begin
    node := e.Data.GetData(typeof(TreeNode)) as TreeNode;
    fButtons.Insert(getBtnIndexAtPos(Self.PointToClient(Point.Create(e.X,e.Y))), node.index.toString);
    createButtons;
  end
end;