Discussion :

[Fab30]

Bonjour,

Je suis face à un souci :

J'ai un TPanel (créer dynamiquement) qui a sa propriété DragMode à automatique, donc draggable. Ce panel peut ensuite aller se dropper sur plusieurs composants, avec un traitement (vérification de la source) lors du drop.
Jusqu'ici, pas de problème, mes objets se déplace nickel.

Seulement, ce TPanel va recevoir de multiple composants, pas toujours les mêmes, qui prennent l'ensemble de l'espace. Par exemple, il peut recevoir deux autre Panel, un aligné en haut (alTop), l'autre aligné sur alClient. Ceci fait qu'il n'est plus possible de dragger le panel initial !

Ce que je recherche, c'est donc la possibilité de "grouper" un ensemble de composants créés dynamiquement, afin de pouvoir les dropper vers une destination.

Est ce possible ?

Merci d'avance de votre aide

[Fab30]

OK, en fouillant dans le code les TControls, j'ai trouvé une méthode nommée BeginDrag.
Donc créer une méthode MouseDown sur les composants qui contient le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
if TWinControl(Sender).Parent = TPanel then
TWinControl(Sender).Parent.BeginDrag(false)

Et ça marche ! Désolé d'avoir poster une question à laquelle je répond 10 minutes après, mais ça faisait depuis vendredi que j'étais dessus !