Drag&Drop innerhalb eines Treeviews

[marabu]

Hallo Manfred,

während ein Dragging bei fehlender Selektion garnicht erst begonnen wird, ist DropTarget sehr oft NIL. Ohne Prüfung erhältst du also viele Zugriffsfehler:

Delphi-Quellcode:

procedure TDemoForm.TreeViewDragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
var
  srcNode, tgtNode: TTreeNode;
begin
  with Source as TTreeView do
    srcNode := Selected;
  with Sender as TTreeView do
    tgtNode := DropTarget;

  if Assigned(tgtNode)
    then StatusBarMain.Panels[0].Text := IntToStr(srcNode.AbsoluteIndex) 
         + '-' + IntToStr(tgtNode.AbsoluteIndex)
    else MessageBeep(0);
  Accept := True;
end;

Grüße vom marabu