![]() |
TVirtualExplorerTreeview + DragDrop + Cursor
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:
..und am Ende halt VirtualExplorerTreeview1EndDrag = FolderTreeDragDrop.
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; Soweit klappt DragDrop auch! Das einzige Problem ist der Mauszeiger! Habe es mit
Delphi-Quellcode:
..haut aber nicht hin :(
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; Danke! |
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:27 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz