如何確定FireMonkey中的拖動操作已結束？

Question

我想知道拖動的控件是否已經釋放到任何目標之外。人們會認爲應該使用OnDragEnd，但該事件不起作用（他們忘記了在FMX.Types單元中調用DragEnd過程）。

作爲一種替代方法，我嘗試了拖動控件的OnMouseUp。不起作用。 DragMode = dmAutomatic時不會觸發。

作爲最後的手段，我試圖覆蓋窗體本身的MouseUp過程（因爲所有的鼠標事件在傳遞到相應的控件之前都會經過窗體）。驚喜：當控件的DragMode = dmAutomatic時，MouseUp過程不會被調用。

令人驚訝的是，這非常簡單，這是非常難以實現的，但我希望有人可能找到了工作解決方案。

Answer 1

可以重寫窗體的DragLeave方法。調用此方法的所有對象將被放置在目標區域之外。