Glisser-déposer au moment du design en Delphi?

Question

Avant que Delphi 2006 (je pense) a présenté le TFlowPanel et TGridPanel, j'ai fait un contrôle qui était similaire dans le concept. Il fait encore un certain nombre de choses que ces contrôles ne font pas, et lors de la mise à jour de mon code à Delphi 2009, j'ai décidé d'ajouter quelques améliorations à cela aussi.

À l'heure actuelle, l'ordre des contrôles enfants est déterminé par leur ordre de création. Le FlowPanel et GridPanel montrent un meilleur moyen avec ControlIndex et d'autres propriétés filtrées, mais je me demandais s'il existe un moyen de gérer le réordonnancement glisser-déposer au moment du design? Pour autant que je sache, faire glisser un contrôle d'édition et le déposer sur mon panneau n'appelle rien de ce que je peux accéder au moment du design. J'étais à moitié fantasmé sur un moyen de détecter directement l'opération de drop, ou peut-être de détecter quand un contrôle est déplacé afin que je puisse déterminer où il devrait aller.

Des idées?

Mise à jour: OK, ça marche. Le contrôle de conteneur remplaçait déjà AlignControls pour gérer le placement des contrôles. Lorsque vous faites glisser le contrôle imbriqué et le supprimez, AlignControls est de nouveau appelé. J'ai ensuite comparé les nouvelles coordonnées du contrôle avec les autres contrôles de la liste et l'ai déplacé à la position appropriée.

J'ai dû faire face à quelques problèmes (principalement liés aux nombreux appels à AlignControls), mais le concept de base est assez simple. Merci à tous les commentateurs pour toute l'aide.

Answer 1

Vous ne pouvez pas faire glisser un contrôle déjà présent sur le formulaire et le déposer sur votre panneau. Glisser est seulement pour déplacer un contrôle, pas pour changer son parent. Pour changer le parent, coupez et collez.

Si le contrôle est déjà sur votre panneau et que vous souhaitez le déplacer vers un autre emplacement sur votre panneau, le panneau peut contrôler la disposition en remplaçant la méthode TWinControl.AlignControls. Quand un contrôle est déplacé, sa méthode SetBounds est appelée, et parmi les choses qui se passent, il appelle AlignControl(Self) sur sa fenêtre parente. Cela appelle AlignControls. Regardez dans Controls.pas, et vous verrez que c'est une méthode compliquée, mais c'est ce qui est responsable de la disposition des enfants sur un contrôle, et c'est exactement ce que vous avez l'intention de changer.

Answer 2

Avez-vous essayé d'écrire un événement "OnDragDrop" pour votre composant de grille, où vous vérifiez si votre composant est en mode conception?

Je n'ai pas encore écrit un tel composant, mais je ne vois pas pourquoi l'événement ne devrait pas se déclencher.

Answer 3

Peut-être que certaines de ces suggestions pourraient aider.

Vous pouvez re-parent d'un contrôle dans le concepteur sans avoir à effectuer un copier-coller. Affichez le volet structure et faites simplement glisser le contrôle visuel sur le noeud d'un autre parent dans le volet structure. Si vous avez des éléments dans un organigramme, faites glisser le tout hors du panneau de flux et faites-le glisser dans l'ordre souhaité.

(Vous pouvez re-parent, je recommande fortement un contrôle visuel de cette façon, sans changer quoi que ce soit autre que son parent. Le faire de cette façon.)

Vous pouvez voir la forme sous forme de texte, et déplacer l'ordre de déclaration autour de là - mais évidemment vous devrez faire attention en éditant le fichier "resource" directement.

Vous pouvez définir l'ordre des onglets dans le concepteur. Vous pouvez donc effectuer un contrôle différent en fonction de l'ordre des onglets qui vous convient. Vous pouvez faire un clic droit sur le formulaire et modifier l'ordre de création des contrôles non visuels, mais cela ne fonctionne pas avec les contrôles visuels.