Créer une ellipse et pouvoir la deplacer a la souris - Delphi/Pascal - Programmation
Marsh Posté le 18-04-2004 à 20:11:07
pour la plupart des contrôles, il suffit de mettre ceci dans leur OnMouseDown :
ReleaseCapture;
TButton(Sender).Perform(WM_SysCommand, $F012, 0);
(en remplaçant TButton par le contrôle que c'est évidemment)
Sinon en mettant DragMode à dmAutomatic tu peux jouer avec les drag & drop et les événements OnDragOver et OnDragDrop (ou des trucs qui ressemblent à ça).
Marsh Posté le 18-04-2004 à 23:47:23
antp a écrit : pour la plupart des contrôles, il suffit de mettre ceci dans leur OnMouseDown : |
Merci , je testerais ça.
Sinon j'avais essayé de mettre dragmode a dmautomatic sur un tlabel et d'utiliser ondragover et ondragdrop mais le control ne se déplaçait tjs pas , cependant j'obtenais quand meme les coordonnées finales.
Marsh Posté le 19-04-2004 à 00:03:37
ouais c'est dans le ondragdrop que tu dois "manuellement" changer les coordonnées du contrôle source
Marsh Posté le 19-04-2004 à 16:20:20
J'ai essayé pas mal de truc mais rien a faire, j'arrive pas a mettre en oeuvre.
Je voudrais faire une chose toute simple:
J'ai un tlabel (label1) et je voudrais pouvoir le déplacer a la souris a l'execution--> ça veut pas bouger
Marsh Posté le 19-04-2004 à 19:02:06
Essaie le truc StaticText qui est dans la palette Additionnal, parce que les TLabel ce ne sont pas de vrais contrôles je pense, c'est juste du texte "peint" sur la fenêtre.
Marsh Posté le 18-04-2004 à 19:54:35
Une ellipse ou meme un controle quelconque
quelqu'un a deja fait ça?
En Delphi