DirectoryListBoxEx drag and drop

VCL TMS VCL UI Pack
1

I'm trying to drag a file from a FileListBoxEx to a DirectoryListBoxEx.

On the DragOver event of the DirectoryListBoxEx I have

var
pnt: TPoint;
idx: integer;
path: string;
begin
pnt := Point(X, Y);
idx := DirectoryListBoxEx1.ItemAtPos(pnt, True);

if idx > -1 then
begin
DirectoryListBoxEx1.ItemIndex := idx;
DirectoryListBoxEx1.Selected[idx];
DirectoryListBoxEx1.Update;
end;

However the Directory property of the DirectoryListBoxEx is not updating. So in the DragDrop event when I come to read the Directory property to ascertain where to move the file I am unable to know where to move the file.

2

You do this with:

DirectoryListBoxEx1.GetItemPath(DirectoryListBoxEx1.ItemIndex);