Créer une ellipse et pouvoir la deplacer a la souris

Créer une ellipse et pouvoir la deplacer a la souris - Delphi/Pascal - Programmation

Marsh Posté le 18-04-2004 à 19:54:35    

Une ellipse ou meme un controle quelconque
 
quelqu'un a deja fait ça?
En Delphi
 

Reply

Marsh Posté le 18-04-2004 à 19:54:35   

Reply

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).


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

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 :
 
  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).

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.

Reply

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 ;)


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

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 :fou:

Reply

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.


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed