Discussion :

[Invité]

Bonjour,

j'aimerais déplacer une TForm par son background et étendre cette capacité à ses TControls. Par exemple, si je place un TPanel sur la Form, je veux déplacer la Form en me plaçant sur le TPanel, en cliquant dessus puis en le déplaçant, la Form restant évidemment "solidaire" du Panel.

J'ai produit un code qui me donne presque satisfaction. En réalité, il est fonctionnel si je n'utilise pas la méthode OnClick des TControls (s'ils en disposent). Les OnMouseDown, Move et Up utilisés pour gérer le mouvement entrent en "conflit" avec le OnClick [Le relâchement du bouton de la souris déclenchant le OnClick]. J'ai vu des approches avec sleep() mais c'est peu ergonomique car le temps du sleep(), la souris bouge sans entrainer la Form.

J'utilise une autre approche un peu lourde au niveau du code. Il y a longtemps que je n'ai pas utilisé Lazarus. Aussi est-il possible d'envisager une meilleure approche ? Je joins mon code en Zip.

Merci par avance de vos réponses. Cordialement.