Перетаскивание TButton из формы в форму

Question

У меня есть приложение с графическим интерфейсом Delphi (с RAD studio 2010), и я хочу, чтобы пользователь мог перестраивать свое рабочее пространство.Я знаю, как заставить перетаскивать кнопки в одной и той же форме, но не знаю, как заставить пользователя перетаскивать кнопку из одной формы в другую.Когда вы нажимаете и пытаетесь перетащить TButton, я не думаю, что он обрабатывает его как операцию перетаскивания.Как сделать так, чтобы TButton можно было перетаскивать в нескольких формах?

Answer 1

Во-первых, установите DragMode кнопки в dmAutomatic или вручную вызовите BeginDrag, когда на кнопке произойдет нажатие мыши. Затем используйте события OnDragOver + OnDragDrop формы, в которую вы будете перетаскивать.

Answer 2

Используйте событие OnDragDrop целевой формы для обновления свойства Parent кнопки.

Answer 3

Я не знаю, как это сделать с версией Delphi DragDrop, но она идеально подходит для перетаскивания в оболочку с

IDataObject

и

IDropTarget

Кроме васвы вынуждены использовать собственный API Window для перетаскивания, а не ограниченную эмуляцию Delphi.