[SOLVED] Dragging controls

[Nitorami]

When I place a simple Label or TShape on Form1 and set its DragMode to dmAutomatic and DragMode to dkDrag, why can't I drag it ? The help says "Set to dmAutomatic to allow the user to drag this control." However when I click on it, it shows the noDrag cursor and cannot be moved.

When setting DragKind to dkDock, I can move it, even outside of Form1 but this is not what I want.

[Michl]

You have to allow the drop for each control. The event is OnDragOver. There you have to set Accept := True. See http://wiki.freepascal.org/Drag_and_Drop_sample#Dragging_between_controls

[Nitorami]

Alright, the cursor changes but the dragged Label still does not move. I had expected that "dmAutomatic" means that I can just move the control without further code, but the example shows there is a bit more to it... will dig into it.

[taazz]

Alright, the cursor changes but the dragged Label still does not move. I had expected that "dmAutomatic" means that I can just move the control without further code, but the example shows there is a bit more to it... will dig into it.

drag and drop/dock is not about moving controls around their containers thing of it as dragging a file around in a file explorer you expect the file to move not the control representing it. It is there so you can code drag and drop functionality in your application that can be dragging a row on a grid to a chart and adding that row's data to the chart or dragging a file from explore in to your application and the application opening it.

[jamie]

normally all you get is a cursor indication that a drag is taking place once you
allow it to happen in the OnDrag.... events...

 When drag is complete the other event will be called and it will report the object
from which the drag started but there is no actual visual drag of the object taking
place.

 Now you can create a drag image that looks like you are dragging that object etc..