DragDrop im Treeview - wo bin ich?

[fillibuster]

Hi,

da passiert leider nichts. Habe es jetzt einmal so getestet, aber da geht auch nichts:

Delphi-Quellcode:

procedure Tmain.assignmentsTreeDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  tnode : TTreenode;
begin
  if Assigned(assignmentsTree.DropTarget) then
  begin
    tnode := assignmentsTree.GetNodeAt(X,Y);
    tnode.Focused := true;
  end;
  Accept := ((Source = articles.articleList) or (Source = assignmentsTree));
end;

Viele Grüße ...