[lazarus] Drag and Drop - The Saga Continues

[Hubert TOUVET]

With Delphi, the object which is actually dragged is by default the control where the drag operation has been initialized, but can also be another TObject descendant. This can be usefull when different controls can be the sources of the same type of Object.
In this case, the target control have only to care about one type of dragged object, and not all the possible (control) sources.

So an event like "GetDraggedObject" would be usefull. By default (if not implemented), it's the control itself, but it could be any other TObject descendant.

Hubert.