delphi xe 7 Tlistbox主要形式在draganddrop之后松散焦点

Question

我在delphi xe7中发现了一个错误，在拖放TlistBoxitem后，对所有组件形成松散效果。

我必须点击表单才能获得鼠标中心效果。 我看到（在调试模式下）TlistBox通过调用os dragAndDrop服务的OS开始拖放。来自FMX.ListBox单位

if AllowDrag then
      begin
        Screenshot := ItemDown.MakeScreenshot;
        try
          AniCalculations.MouseLeave;
          FMouseSelecting := False;
          // start drag service
          Root.BeginInternalDrag(Selected, Screenshot);
        finally
          Screenshot.Free;
        end;
      end;

我尝试在delphi berlin上拖拽并修复了错误。我无法看到来源，因为它是轻型版本。

我在网上找不到任何解决方案。

我做了一个项目例子：http://www.partage-fichiers.com/upload/qgbl1e5g

拖放项目后，鼠标中心（在所有权限上）并点击Tlabel（hittest = true）不会被解雇

Answer 1

用于在

之后获取mousenter和mouseclick事件

BeginInternalDrag(mylistboxItem, Screenshot);

待办事项

MyListBox.Root.Captured := nil;