Problem mit DragDrop von ListView in TreeView

[Grolle]

Hallo,

ich verwende einen HTMLTreeView und eine AdvListView. Von dieser will ich in den Tree droppen. Der DragMode steht bei beiden auf dmAutomatic:

Delphi-Quellcode:

procedure Tmain.assignmentsTreeDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  assignmentsTree.Items.Add(nil, (Source as TAdvListView).Selected.Caption);
end;

procedure Tmain.assignmentsTreeDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Sender = articleList;
end;

Das klappt aber nicht. Habe ich da was übersehen/vergessen?

Viele Grüße

[Grolle]

PUTSCH

[Grolle]

So geht das:
Accept := (Source = articleList);