[Drag & Drop] Drop файлов из приложения в проводник Windows

[Кривяков Виталий]

Добрый день!

Не получается отправить файлы из приложения в проводник Windows средствами firemonkey. 

Код:

procedure DragAndDropFiles;
var
  DDService : IFMXDragDropService;
  D : TDragObject;
  ABitmap : TBitmap;
begin
...
    D.Files := [];
    D.Source := self;
    ABitmap := CreateMyBitmap;
    gvIcons.DisableScroll;
	AddFiles(D.Files);
    
    if TPlatformServices.Current.SupportsPlatformService(IFMXDragDropService, DDService) then
      DDService.BeginDragDrop(Self, D, ABitmap);

    FreeAndNil(ABitmap);
end;

Файлы в списке есть, картинка перемещается с курсором, но над проводником знак запрета и drop не срабатывает.

P.S.

Как сделать под VCL знаю, интересует, возможно ли это в FMX.

 

[Равиль Зарипов (ZuBy)]

можно демку?

[Кривяков Виталий]

Маленький пример.

 

DragAndDrop.zip

[Brovin Yaroslav]

Говорят, не реализована такая поддержка на уровне платформы FMX.

То есть либо самостоятельно реализовать сервис, либо, видимо, внести нужные правки.