Hallo!
ich habe eine TVirtualExplorerTreeview Komponente und versuche per DragDrop Items in eine TTreeView einzufügen.
Da TVirtualExplorerTreeview keine DragMode Eigenschaft hat benutze ich die der ShellOptions.
Die aber erlaubt Drag nur in eine TVirtualExplorerListview.
Delphi-Quellcode:
procedure TForm1.FolderTreeDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if source = VirtualExplorerTreeview1 then accept := true;
end;
procedure TForm1.FolderTreeDragDrop(Sender, Source: TObject; X, Y: integer);
var
i: integer;
atrimpath, apath: string;
begin
apath := VirtualExplorerTreeview1.SelectedPath;
atrimpath := VirtualExplorerTreeview1.SelectedFile;
FolderTree.Items.BeginUpdate;
GetDirs(apath, FolderTree, FolderTree.Items.Add(nil, atrimpath));
FolderTree.Items.EndUpdate;
end;
..und am Ende halt VirtualExplorerTreeview1EndDrag = FolderTreeDragDrop.
Soweit klappt DragDrop auch! Das einzige Problem ist der Mauszeiger!
Habe es mit
Delphi-Quellcode:
procedure TForm1.FolderTreeDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if source = VirtualExplorerTreeview1 then begin
accept := true;
Cursor := crMultiDrag;
end;
end;
..haut aber nicht hin
Danke!