|
Los componentes derivados del TWinControl (Por ejemplo un TPanel) tienen una propiedad llamada DockSite, a los que le pongas esa propiedad en True tendrán la capacidad de albergar allí cualquier objeto que este siendo arrastrado en la aplicación...
Para arrastrar un objeto TControl (TEdit, TPanels, o cualquiera de esos) facilmente, solo basta con indicarle en su propiedad DragKing que sea igual a dkDock y en DragMode = dmAutomatic...
Si quieres saber cual es el objeto que esta siendo arrastrado, bastara con que juegues con los eventos OnDockDrop, OnDockOver, OnDragDrop o OnDragOver según como los necesites.
Espero te sirva esta información.
|