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