Hi,
I'm using a HTMLTreeView and AdvListView. I want to drag from the AdvListView and drop into the HTMLTreeView. DragMode is dmAutomatic on both components. Some code:
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;
Nothing happens. What's wrong here?
Best regards ...