delphi xe 7 Tlistbox main form loose focus after draganddrop

Question

i found a bug in delphi xe7, after a drag and drop TlistBoxitem, form loose over effect on all components.

I have to click the form to get mouseenter effect. i saw (on debug mode) the TlistBox start draganddrop by call os dragAndDrop service's OS. from FMX.ListBox unit

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

i tried draganddrop on delphi berlin and the bug is fixed. i can't see the source because it's the light version.

i didn't find any solution in web.

i did a project exemple : http://www.partage-fichiers.com/upload/qgbl1e5g

After drag and drop items mouseenter (on all compenents) and click on Tlabel (hittest=true) is not fired

Answer 1

For get mousenter and mouseclick events after

BeginInternalDrag(mylistboxItem, Screenshot);

Do

MyListBox.Root.Captured := nil;