的Delphi XE 7的TListBox主要形式鬆散焦點draganddrop

後，我發現在Delphi XE7一個錯誤，拖動後拖放TlistBoxitem，形成覆蓋所有組分效果鬆動。的Delphi XE 7的TListBox主要形式鬆散焦點draganddrop

我必須點擊的形式獲得了mouseenter效果。我看到（在調試模式下）TlistBox通過調用os和dragAndDrop服務的操作系統啓動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 Delphi的柏林和錯誤是固定的。我無法看到源代碼，因爲它是輕型版本。

我在網上找不到任何解決方案。

我做了一個項目爲例：http://www.partage-fichiers.com/upload/qgbl1e5g

阻力後和掉落物品的mouseenter（所有compenents），點擊的TLabel（則hitTest =真）不開除

來源

2016-12-29 user2025814

我測試的主要形式不要鬆動焦點，不會失效 – user2025814

好的，不好意思，我創建了一個類似的問題https://stackoverflow.com/questions/15821670/delphi-window-losing-focus-after-custom-drag?rq=1，但我在firemonkey工作，我認爲這不僅僅是一個TlistBox的bug – user2025814

我們很難調查沒有複製。我們不能有[mcve]嗎？ –

對於GET mousenter和

後鼠標點擊事件

BeginInternalDrag(mylistboxItem, Screenshot);

不要

MyListBox.Root.Captured := nil;

來源

2016-12-30 14:19:16 user2025814

的Delphi XE 7的TListBox主要形式鬆散焦點draganddrop

回答

相關問題