DragDrop objet crée dynamiquement [Résolu]

[retwas]

Bonjour,

Sur une TForm j'ai un TImage et un TButton.

Quand je clic sur mon bouton un TImage est crée dynamiquement.

Code :

1
2
3
4
5
6
7
8
9
   with TImage.Create(Self) do
   begin
      Parent  := Self;
      Name    := randomString(8);
      Width   := 33;
      Height  := 33;
      Left    := Random(4);
      Picture := Image1.Picture;
   end;

Le problème c'est que je souhaite faire du DragDrop avec ce nouveau TImage. L’évènement onMouseMove ne redonne pas mon TImage comme Sender quand je passe dessus..

Pouvez-vous m'aider ?

Merci

[ShaiLeTroll]

Si c'est le TButton qui instancie le TImage, le OnMouseMove va pointer sur TButton le temps du clic puis changera en fonction des TControl présents

Pour que le TImage gère le Move, il te manque du code, tu n'affectes pas de Gestionnaire, il ne peut donc pas appeler la méthode !

Code :

1
2
3
4
5
6
   with TImage.Create(Self) do
   begin
      Parent  := Self;
      OnMouseMove := LaProcedureQuiGereLeMove;
      ...
   end;

Pour le Drag & Drop, essaye un DragMode dmManual sur le TImage et les méthodes comme BeginDrag et EndDrag

Sinon le mode DragMode dmAutomatic sur l'objet devant être déplacé
Gère l'évènement OnDragOver dans l'objet receveur pour indiquer si tu acceptes l'objet déplacé
L'évènement OnDragDrop indique que l'objet déplacé est déposé (c'est à ce moment qu'il faut modifier le receveur)

[retwas]

Merci beaucoup, tout bête finalement