delphi - 从一个窗体拖动一个 TButton

Question

我有一个 Delphi GUI 应用程序(带有 RAD studio 2010)，我希望用户能够重新安排他的工作区。我知道如何使 TButton 可以在同一个表单中拖动，但不知道如何让用户能够将按钮从一个表单拖动到另一个表单。当您单击并尝试拖动 TButton 时，我认为它不会将其视为拖放操作。如何让 TButton 能够跨多种表单进行拖放？

Answer 1

首先，将按钮的 DragMode 设置为 dmAutomatic，或者在按钮上发生鼠标按下时手动调用 BeginDrag。然后使用您要拖动到的表单的 OnDragOver + OnDragDrop 事件。