delphi xe 7 Tlistbox Основная форма Свободный фокус после draganddrop

Question

Я нашел ошибку в delphi xe7 после перетаскивания TlistBoxitem, создавая эффект ослабления для всех компонентов.

Мне нужно щелкнуть форму, чтобы получить эффект mouseenter. Я увидел (в режиме отладки) TlistBox запустил draganddrop по вызову ОС OSA dragAndDrop. от блока 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; 

я попытался DragAndDrop на Дельфи берлине и ошибка будет исправлена. Я не вижу источник, потому что это легкая версия.

Я не нашел никакого решения в Интернете.

я сделал проект Exemple: http://www.partage-fichiers.com/upload/qgbl1e5g

После перетаскивания объектов MouseEnter (на всех compenents) и нажмите на TLabel (HitTest = истина) не обстреляли

Answer 1

Для ПОЛУЧИТЬ mousenter и Mouseclick события после

BeginInternalDrag(mylistboxItem, Screenshot); 

ли

MyListBox.Root.Captured := nil;